请问在vb.net中datagrid如何连接数据库? 多谢
请问在vb.net中datagrid如何连接数据库? 多谢 问题点数：20、回复次数：5Top
1 楼benmo2000（笨笨）回复于 2002-11-14 16:02:09 得分 8
可以将datagrid绑定到dataset或者是别的上。给你个例子吧。
strcon为数据库联接字串
sql为select语句
Dim con As New OleDbConnection(strConn)
Dim cmd As New OleDbDataAdapter(sql, con)
dim mydataset As New DataSet()
con.Open()
cmd.Fill(mydataset , "data")
DataGrid1.DataSource = mydataset.Tables("data").DefaultView
DataGrid1.DataBind()
Top
2 楼dyy_nj（跳跳糖）回复于 2002-11-14 16:03:35 得分 6
连接什么数据库？
access
ConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBasePath & ";"
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & DataBasePath
conn = New OleDb.OleDbConnection(ConString)
Top
3 楼dyy_nj（跳跳糖）回复于 2002-11-14 16:04:29 得分 6
DataGrid1.SetDataBinding(Dqcode1, "用户管理")Top
4 楼zell76（zell76）回复于 2002-11-14 16:10:46 得分 0
问题解决，多谢两位！Top
5 楼sanjianxia（三剑侠）回复于 2002-12-06 12:05:28 得分 0
请看我写的程序代码(请修改为你的数据库)
Dim strcmdtext As String = "select * from student"
Dim sqlconn As New SqlClient.SqlConnection("data source=xiao;uid=sa;pwd=123;database=test")
Dim rowsprocessed As Integer
Dim customerds As New DataSet()
Dim sqldataadapter As New SqlClient.SqlDataAdapter(strcmdtext, sqlconn)
Dim sqlcb As New SqlClient.SqlCommandBuilder(sqldataadapter)
Private Sub code_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sqldataadapter.Fill(customerds, "student")
DataGrid1.DataSource = customerds
DataGrid1.CaptionText = "学生信息显示"
DataGrid1.DataMember = "student"
End Sub
'数据添加
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'textbox1.text,textbox2.text,textbox3.text,textbox4.text
Dim addcmd As String = "insert into student values ('11','张曼玉','女','09.12')"
Dim sqlcmd As New SqlClient.SqlCommand(addcmd, sqlconn)
sqlcmd.Connection.Open()
rowsprocessed = sqlcmd.ExecuteNonQuery()
customerds.Clear()
sqldataadapter.Fill(customerds, "student")
DataGrid1.DataSource = customerds
DataGrid1.CaptionText = "学生信息显示"
DataGrid1.DataMember = "student"
End Sub
'datagrid数据更新
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
sqldataadapter.Update(customerds, "student")
End SubTop
