如何使用vb.net中的Windows窗体在访问数据库中插入和保存数据 [英] How to insert and save data in access database using windows form in vb.net

问题描述

我有ms访问数据库，因为我有不同的表。我想使用Windows窗体在数据库表中插入值。我使用的是Visual Basic 2010快递版。任何人都可以帮我编写上述要求的代码吗？

I have ms access database in that i have different tables. I want to insert values in table of database using windows form . I am using Visual basic 2010 express edition. Can anyone help me to write code for above requirement ?

推荐答案

尝试：

Using con As New OleDbConnection(strConnect)
	con.Open()
	Using cmd As New OleDbCommand("INSERT INTO MyTable (MyColumn1, MyColumn2) VALUES (@C1, @C2", con)
                    cmd.Parameters.AddWithValue("@C1", myValueForColumn1)
                    cmd.Parameters.AddWithValue("@C2", myValueForColumn2)
                    cmd.ExecuteNonQuery();
	End Using
End Using

显然 strConnect 连接字符串将取决于您，因为我们不知道您存储数据库的位置，并且列/值名称将是错误的...

Obviously the strConnect connection string will be up to you since we have no idea where you stored your DB, and the column / value names will be wrong...

Imports System.Data.OleDb

公共类Form1

Dim cnnOLEDB作为新的OleDbConnection（Provider = Microsoft.ACE.OLEDB.12.0; Data Source = C：\ Users\SHUAIBH \Desktop \ T1.accdb;）

Dim cmdOLEDB As New OleDbCommand

Dim cmdInsert As New OleDbCommand

Dim cmdUpdate As New OleDbCommand

Dim cmdDelete作为新的OleDbCommand

Dim dataFile As String

公共myConnection作为OleDbConnection =新的OleDbConnection



$ / b

私有子btnsubmit_Click（发件人为System.Object，e为System.EventArgs）处理btnsubmit.Click





朦胧我nsertQuery As String



InsertQuery =INSERT INTO Table1table（L1，L2，L3，L4，L5，）VALUES（@ L1，@ L2，@ L3，@ L4 ，@ L5）



cnnOLEDB.Open（）

Dim cmd作为OleDbCommand =新的OleDbCommand（InsertQuery，cnnOLEDB）

cmd.Parameters.AddWithValue（@ L1，txt1.Text）

cmd.Parameters.AddWithValue（@ L2，txt2.Text）

cmd.Parameters.AddWithValue（@ L3，txt3.Text）

cmd.Parameters.AddWithValue（@ L4，txt4.Text）

cmd.Parameters。 AddWithValue（@ L5，txt5.Text）

cmd.ExecuteNonQuery（）

cnnOLEDB.Close（）

MessageBox.Show（数据保存成功）

Me.Close（）



结束次级

结束班级









以上是我填写五列L1，L2，L3的代码，分别为L4，L5。我收到INSERT INTO语句中的语法错误

Imports System.Data.OleDb
Public Class Form1
Dim cnnOLEDB As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\SHUAIBH\Desktop\T1.accdb;")
Dim cmdOLEDB As New OleDbCommand
Dim cmdInsert As New OleDbCommand
Dim cmdUpdate As New OleDbCommand
Dim cmdDelete As New OleDbCommand
Dim dataFile As String
Public myConnection As OleDbConnection = New OleDbConnection



Private Sub btnsubmit_Click(sender As System.Object, e As System.EventArgs) Handles btnsubmit.Click


Dim InsertQuery As String

InsertQuery = "INSERT INTO Table1table (L1,L2,L3,L4,L5,) VALUES (@L1,@L2,@L3,@L4,@L5)"

cnnOLEDB.Open()
Dim cmd As OleDbCommand = New OleDbCommand(InsertQuery, cnnOLEDB)
cmd.Parameters.AddWithValue("@L1", txt1.Text)
cmd.Parameters.AddWithValue("@L2", txt2.Text)
cmd.Parameters.AddWithValue("@L3", txt3.Text)
cmd.Parameters.AddWithValue("@L4", txt4.Text)
cmd.Parameters.AddWithValue("@L5", txt5.Text)
cmd.ExecuteNonQuery()
cnnOLEDB.Close()
MessageBox.Show("Data Saves Successfully")
Me.Close()

End Sub
End Class




Above is my code for filling five columns L1,L2,L3,L4,L5 respectively. I am getting "Syntax error in INSERT INTO statement"

这篇关于如何使用vb.net中的Windows窗体在访问数据库中插入和保存数据的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！