
选择开始菜单中→程序→【Management SQL Server 2008】→【SQL Server Management Studio】命令,打开【SQL Server Management Studio】窗口,并使用Windows或 SQL Server身份验证建立连接。
在【对象资源管理器】窗口中展开服务器,然后选择【数据库】节点
右键单击【数据库】节点,从d出来的快捷菜单中选择【新建数据库】命令。
执行上述 *** 作后,会d出【新建数据库】对话框。在对话框、左侧有3个选项,分别是【常规】、【选项】和【文件组】。完成这三个选项中的设置会后,就完成了数据库的创建工作,
在【数据库名称】文本框中输入要新建数据库的名称。例如,这里以“新建的数据库”。
在【所有者】文本框中输入新建数据库的所有者,如sa。根据数据库的使用情况,选择启用或者禁用【使用全文索引】复选框。
在【数据库文件】列表中包括两行,一行是数据库文件,而另一行是日记文件。通过单击下面的【添加】、【删除】按钮添加或删除数据库文件。
切换到【选项页】、在这里可以设置数据库的排序规则、恢复模式、兼容级别和其他属性。
切换到【文件组】页,在这里可以添加或删除文件组。
完成以上 *** 作后,单击【确定】按钮关闭【新建数据库】对话框。至此“新建的数据”数据库创建成功。新建的数据库可以再【对象资源管理器】窗口看到。
//选择路径,添加一个对话框Dim path As String
path=""
OpenFileDialog file = new OpenFileDialog()
file.ShowDialog
path = file.FileName
//查询数据库
Dim rs As ADODB.Recordset
Dim cnn As ADODB.Connection
Set rs=new ADODB.Recordset
Set cnn=new ADODB.Connection
cnn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0Data Source="+path+"Extended Properties='EXCEL 8.0HDR=YESIMEX=1'"
cnn.Open
Dim sql As String
sql = "Select * from [Sheet1$]" //你还需要选择表名
rs.Open(sql, cnn, 3, 1)
Dim da As New System.Data.OleDb.OleDbDataAdapter
Dim ds As New DataSet
da.Fill(ds, rs, 1)
DataGridView1.DataSource = ds.Tables(0)
//当然你必须要选择表名,你怎么知道你的EXCEL都是Sheet1表,我写过C#代码来 *** 作,VB.NET没写过,你看一下,大同小异
//获取EXCEL表名称
private void link(string lujing)
{
OleDbConnection cnn = new OleDbConnection()
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source="+@lujing+"Extended Properties='EXCEL 8.0HDR=YESIMEX=1'"
try
{
cnn.Open()
System.Data.DataTable schemaTable = cnn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, null)
//把表名称加入LV
#region //listview
if (schemaTable.Rows.Count != 0)
{
#region//创建一个组,------------设置 Groups 属性
listView1.Groups.Clear()
for (int i = 0 i < schemaTable.Rows.Count i++)
{
string lhg = "EXCEL表 第 " + (i + 1).ToString() + " 个表"
ListViewGroup lvg = new ListViewGroup(lhg)
listView1.Groups.Add(lvg)
}
#endregion
#region//创建小图标,----------------设置 小图标集合 属性
listView1.SmallImageList = imageList1
#endregion
#region//创建一个列清空他的名字, -------设置 Columns 属性
ColumnHeader cZh = new ColumnHeader()
cZh.Width = 2000//列宽
cZh.Text = "3434"//列名
listView1.Columns.AddRange(new ColumnHeader[] { cZh })//将这两列加入
listView1.Columns.Clear()//清空列记录
#endregion
#region//直接加入List属性,----------------设置 View 属性
listView1.View = View.SmallIcon//列的显示模式
#endregion
#region/初始化列表 清空列表数据再添加
listView1.Columns.Clear()//清空列记录
listView1.Items.Clear()
#endregion
}
#region//循环加入数据做列表,-------------设置 Item 属性
for (int i = 0 i <= schemaTable.Rows.Count - 1 i++)
{
ListViewItem lvi = new ListViewItem() ///创建列表项[]
lvi.Text = schemaTable.Rows[i][2].ToString()
lvi.ImageIndex = 0//加入图片
//lvi.SubItems.Add("子项")
listView1.Items.Add(lvi)//将项加入listView1列表中
lvi.Group = listView1.Groups[i]//加入第一个组
}
#endregion
#endregion
//初始化
xianshi(false)
}
catch
{
listclear()
MessageBox.Show("对不起!请检查你的文件名是否正确!", "文件无法打开", MessageBoxButtons.OK, MessageBoxIcon.Warning)
}
finally
{
cnn.Close()
}
}
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)