如何在ms访问和VB.NET中连接和插入数据 [英] How to connect and insert data in ms access and VB.NET
问题描述
我试图在ms访问和vb.net中连接和添加数据
------------------------ ------------------------------------
这是错误我'我得到：不允许更改'ConnectionString'属性。连接的当前状态是打开的。}
我尝试过：
Imports System.Data.OleDb
Public Class Form1
Dim provider As String
Dim dataFile As String
Dim connString As String
Dim myConnection As OleDbConnection = New OleDbConnection
Private Sub Form1_Load（ByVal sender As System.Object，ByVal e As System.EventArgs）处理MyBase.Load
'TODO：这行代码将数据加载到'HospitalDatabaseDataSet.PatientTable'表中。您可以根据需要移动或移除它。
Me.PatientTableTableAdapter.Fill（Me.HospitalDatabaseDataSet.PatientTable）
End Sub < br $>
Private Sub Button1_Click（ByVal sender As System.Object，ByVal e As System.EventArgs）处理Button1.Click
provider =Provider = Microsoft.ACE.OLEDB.12.0;数据源=
dataFile =D：\Dat.accdb;
connString = provider& dataFile
myConnection.ConnectionString = connString
myConnection.Open（）
Dim str As String
str =插入数据（[No]，[Date]，[Name]，[Gender]，[Age]，[Phone]，[Desease]，[Address]，[Building]，[Room没有]，[房间类型]，[价格]）价值（@ No，@ Date，@ Name，@ Gender，@ Age，@ Phone，@ Desease，@ Address，@ Building，@ Room No，@ Room Type，@价格）
Dim cmd作为OleDbCommand =新OleDbCommand（str，myConnection）
cmd.Parameters .Add（New OleDbParameter（No，CType（TextBox1.Text，String）））
cmd.Parameters.Add（New OleDbParameter（Name，CType（TextBox2.Text，String）） ）
cmd.Parameters.Add（New OleDbParameter（Gender，CType（TextBox3.Text，String）））
cmd.Parameters.Add（New OleDbParameter（ Age，CType（TextBox4.Text，String）））
cmd.Parameters.Add（New OleDbParameter（Phone，CType（TextBox6.Text，String）））
cmd.Parameters.Add（New OleDbParameter（Desease，CType（TextBox7.Text，String）））
cmd.Parameters.Add（New OleDbParameter（Address，CType （TextBox8.Text，String）））
cmd.Parameters.Add（New OleDbParameter（Building，CType（TextBox10.Text，String）））
cmd。 Parameters.Add（New OleDbParameter（Room No，CType（TextBox11.Text，String）））
cmd.Parameters.Add（New OleDbParameter（Room Type，CType（TextBox12.Text， String）））
cmd.Parameters.Add（新OleDbParameter（Price，CType（TextBox13.Text，String）））
尝试
cmd.ExecuteNonQuery（）
cmd.Dispose（）
myConnection.Close（）
TextBox1.Clear（）
TextBox2.Clear（）
TextBox3.Clear（）
TextBox4.Clear（）
TextBox5.Clear（）
Catch ex As Exception
MsgBox（ex.Message）
结束尝试
结束子
Private Sub Button2_Click（ByVal sender As System .Object，ByVal e As System.EventArgs）处理Button2.Click
Me.Close（）
End Sub
Private Sub Button3_Click（ByVal sender As System.Object，ByVal e As System.EventArgs）Handles Button3.Click
End Sub
结束类
i have tried to connect and add data in ms access and vb.net
------------------------------------------------------------
this is the error i'am getting :"Not allowed to change the 'ConnectionString' property. The connection's current state is open."}
What I have tried:
Imports System.Data.OleDb
Public Class Form1
Dim provider As String
Dim dataFile As String
Dim connString As String
Dim myConnection As OleDbConnection = New OleDbConnection
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'HospitalDatabaseDataSet.PatientTable' table. You can move, or remove it, as needed.
Me.PatientTableTableAdapter.Fill(Me.HospitalDatabaseDataSet.PatientTable)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
dataFile = "D:\Dat.accdb;"
connString = provider & dataFile
myConnection.ConnectionString = connString
myConnection.Open()
Dim str As String
str = "insert into Dat ([No], [Date], [Name], [Gender],[Age],[Phone],[Desease],[Address],[Building],[Room No],[Room Type],[Price]) VALUES (@No,@Date,@Name,@Gender,@Age,@Phone,@Desease,@Address,@Building,@Room No,@Room Type,@Price) "
Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
cmd.Parameters.Add(New OleDbParameter("No", CType(TextBox1.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Name", CType(TextBox2.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Gender", CType(TextBox3.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Age", CType(TextBox4.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Phone", CType(TextBox6.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Desease", CType(TextBox7.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Address", CType(TextBox8.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Building", CType(TextBox10.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Room No", CType(TextBox11.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Room Type", CType(TextBox12.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Price", CType(TextBox13.Text, String)))
Try
cmd.ExecuteNonQuery()
cmd.Dispose()
myConnection.Close()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End Sub
End Class
推荐答案
与嘿，伙计们如何在VB.NET中连接数据并将数据添加到ms访问数据库？ / a> [ ^ ]。完成使用后，您必须关闭它。
Exactly the same problem as your original question at Hey guys how can I connect and add data to ms access database in VB.NET ?[^]. You must close your comnnection when you have finished using it.
这篇关于如何在ms访问和VB.NET中连接和插入数据的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
