首先,对我糟糕的英语感到抱歉,我有一个问题,我今天搜索了100多个网站,没有得到答案,因为所有的网站都在使用SQL数据库或C#,所以我决定在这里问它。我是新手VB编程,我想写一个应用程序在VB 保存文本框到MS Access数据库。我已经将我的数据库连接到其中(我可以在数据源窗口中看到它的表),我知道从其中读取或将表加载到combobox或datagrid中,但我不知道如何将记录保存到其中。我想将文本框的文本保存到新的记录中(请告诉我如何删除、更新或修改!)
我到现在为止所做的事情:-连接Access数据库到它。-设置DataGrid以在更新中显示表格。
我的数据库信息:
数据集文件路径和名称C:\Users\Amin\Sahaav\SahaavWPF\SahaavWPF\bin\Debug\Database.accdb
提前道谢
这是来自应用程序enter image description here的图像
发布于 2018-06-09 06:29:50
多亏了http://camposha.info/source/vb-net-ms-access-listview-insert-select-update-delete,我终于找到了答案
这是我的代码:
Private Sub button_Click(sender As Object, e As RoutedEventArgs) Handles button.Click
'GLOBAL DECLARATIONS
Dim conString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Amin\Sahaav\SahaavWPF\SahaavWPF\bin\Debug\Database.mdb;"
Dim con As OleDbConnection = New OleDbConnection(conString)
Dim cmd As OleDbCommand
Dim dt As DataTable = New DataTable()
'SQL STMT
Dim SQL As String = "INSERT INTO TestingTbl(Field1) VALUES(Name)"
cmd = New OleDbCommand(SQL, con)
'ADD PARAMETERS
cmd.Parameters.AddWithValue("Name", textBox.Text)
'OPEN CONNECTION And INSERT
Try
con.Open()
If cmd.ExecuteNonQuery() > 0 Then
MsgBox("Successfully Inserted")
End If
con.Close()
Catch ex As Exception
MsgBox(ex.Message)
con.Close()
End Try
End Sub
https://stackoverflow.com/questions/50767801
复制相似问题