我如何在oledb连接错误中插入表数据库 [英] How do I. Insert table database in oledb connection error

问题描述

provider =provider = Microsoft.ace.OLEDB.12.0; DATA SOURCE =

datafile =C：\Users\hp\Documents\Sports_Shop_Management_System\Sports_Shop_Management_System\ Sports_Shop_Management_System11.accdb

connstring = provider& datafile

myconnection.ConnectionString = connstring

myconnection.Open（）

Dim str As String

str =插入PURCHASE（[Pur_ID]，[Prod_ID]，[Prod_Name]，[Price]，[Qty]，[Tot_Amt]，[Pur_Date]，[Sup_ID]，[Sup_Name]，[Add]，[Ph_No]，[E -mail_ID]）值（？，？，？，？，？，？，？，？，？，？，？，？）

Dim cmd As OleDbCommand = New OleDbCommand（str，myconnection ）

cmd.Parameters.Add（新OleDbParameter（Pur_ID，CType（TextBox5.Text，String）））

cmd.Parameters.Add（New OleDbParameter（ Prod_Name，CType（TextBox2.Text，String）））

cmd.Parameters.Add（新OleDbParameter（Price，CType（TextBox4.Text，String）））

cmd.Parameters.Add（New OleDbParameter（Prod_ID，CType（TextBox1.Text，String）））

cmd.Parameters.Add（New OleDbParameter（Qty，CType（TextBox5。 Text，String）））

cmd.Parameters.Add（New OleDbParameter（Tot_Amt，CType（TextBox11.Text） ，String）））



cmd.Parameters.Add（新OleDbParameter（Sup_ID，CType（TextBox10.Text，String）））

cmd.Parameters.Add（New OleDbParameter（Sup_Name，CType（TextBox8.Text，String）））

cmd.Parameters.Add（New OleDbParameter（Add，CType（TextBox9。 Text，String）））

cmd.Parameters.Add（New OleDbParameter（Ph_No，CType（TextBox7.Text，String）））

cmd.Parameters.Add （新的OleDbParameter（E-Mail_ID，CType（TextBox6.Text，String）））

尝试

cmd.ExecuteNonQuery（）

cmd.Dispose（）

myconnection.Close（）

TextBox1.Clear（）

TextBox2.Clear（）

TextBox3.Clear（）

TextBox4.Clear（）

TextBox5.Clear（）

TextBox6.Clear（）

TextBox7.Clear（）

TextBox8.Clear（）

TextBox9.Clear（）

TextBox10.Clear（）

TextBox11.Clear（）

Catch ex As Exception

MsgBox（ex.Message）

结束尝试



我尝试过：



i想要插入表数据库，但我将面临此错误不允许更改'ConnectionString'属性。连接的当前状态是打开的。请任何人帮助我请

provider = "provider=Microsoft.ace.OLEDB.12.0;DATA SOURCE="
datafile = "C:\Users\hp\Documents\Sports_Shop_Management_System\Sports_Shop_Management_System\Sports_Shop_Management_System11.accdb"
connstring = provider & datafile
myconnection.ConnectionString = connstring
myconnection.Open()
Dim str As String
str = "insert into PURCHASE([Pur_ID],[Prod_ID],[Prod_Name],[Price],[Qty],[Tot_Amt],[Pur_Date],[Sup_ID],[Sup_Name],[Add],[Ph_No],[E-mail_ID]) values (?,?,?,?,?,?,?,?,?,?,?,?)"
Dim cmd As OleDbCommand = New OleDbCommand(str, myconnection)
cmd.Parameters.Add(New OleDbParameter("Pur_ID", CType(TextBox5.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Prod_Name", CType(TextBox2.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Price", CType(TextBox4.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Prod_ID", CType(TextBox1.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Qty", CType(TextBox5.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Tot_Amt", CType(TextBox11.Text, String)))

cmd.Parameters.Add(New OleDbParameter("Sup_ID", CType(TextBox10.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Sup_Name", CType(TextBox8.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Add", CType(TextBox9.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Ph_No", CType(TextBox7.Text, String)))
cmd.Parameters.Add(New OleDbParameter("E-Mail_ID", CType(TextBox6.Text, String)))
Try
cmd.ExecuteNonQuery()
cmd.Dispose()
myconnection.Close()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
TextBox10.Clear()
TextBox11.Clear()
Catch ex As Exception
MsgBox(ex.Message)
End Try

What I have tried:

i want to insert table database but i will face this error"Not allowed to change the 'ConnectionString' property. The connection's current state is open." pls any one help me pls pls

推荐答案

对于OleDB ConnectionString，请参阅：用于SQL Server连接字符串的Microsoft OLE DB提供程序 - ConnectionStrings.com [ ^ ]



对于OleDB示例，请参阅： ASP中的参数查询.NET与MS Access [ ^ ]

For OleDB ConnectionString, see: Microsoft OLE DB Provider for SQL Server Connection Strings - ConnectionStrings.com[^]

For OleDB examples see: Parameter Queries in ASP.NET with MS Access[^]

这篇关于我如何在oledb连接错误中插入表数据库的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！