小白菜,求救一个简单问题
我想在text中输入文字,然后点添加,添加到datagridview中,同时将数据添加到access中,请教高手代码,谢谢
--------------------编程问答-------------------- 补图[img=http://hi.csdn.net/space-698870-do-album-picid-762914.html][/img] --------------------编程问答-------------------- 图片看不见了
帮顶 --------------------编程问答-------------------- 我也看不到图,不知道怎么回事,郁闷 --------------------编程问答-------------------- --------------------编程问答--------------------
VB.NET Access数据库连接--------------------编程问答-------------------- --------------------编程问答-------------------- 其实datagridview本身就可以和access合作,直接添加,不用另外的文本框,也就自己到数据库去了,拖下控件,设置设置就可以了,看看相关的书或MSDN吧。 --------------------编程问答-------------------- --------------------编程问答-------------------- 应该是先把数据添加到access数据库中,然后让datagridview显示数据库中的数据。 --------------------编程问答-------------------- --------------------编程问答-------------------- 没图,其实我也不知道怎么上传图片的?
采用OleDbConnection对象
Private Function getAccessConnection() As OleDbConnection
Dim dbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=|DataDirectory|\Resources\mag.mdb;Persist Security Info=true"
Dim dbConnection As OleDbConnection = New OleDbConnection(dbConnectionString)
Try
dbConnection.Open()
Catch Ex As Exception
’MsgBox(Err.Description)
End Try
Return dbConnection
End Function
private Sub fillDataGridView()
Dim sqlStr As String = "select * from Table"
Dim DataAdapter As New OleDbDataAdapter
Dim dataSet As New DataSet
Dim DataGridView As New DataGridView
Dim dbConnection As OleDbConnection = getAccessConnection()
If dbConnection.State.ToString = "Closed" Then
MsgBox(Chr(13) & " access 数据库连接失败 " & Chr(13), , "警告")
Exit Sub
End If
DataAdapter.SelectCommand = New OleDbCommand(sqlStr,dbConnection)
Try
DataAdapter.Fill(dataSet,"Table")
DataGridView.DataSource = dataSet.Tables("Table").DefaultView
Catch Ex As Exception
MsgBox(Err.Description)
Finally
dataSet.Dispose
DataAdapter.Dispose
dbConnection.Close
dbConnection.Dispose
End Try
End Sub
补充:.NET技术 , VB.NET