如何解决从其他表vb插入数据网络访问OleDb
我在同一数据库上有不同的表,我需要从组合框中插入数据的ID。 这是客户桌
我需要的是从组合框选择的项目中获取ID,并将其放在最终表中, 这就是我尝试的
cmd.Parameters.AddWithValue("Client",client.Text)
Private Sub livbtn_Click(sender As Object,e As EventArgs) Handles livbtn.Click
'ModePaiement()
Try
SQL = "INSERT INTO LIVRAISONCLIENTGNC(Codeclient) SELECT code_client from client WHERE client = @Client "
Execute(SQL,"Insert")
MessageBox.Show("The record has been saved.","",MessageBoxButtons.OK,MessageBoxIcon.Information)
ResetMe()
Catch ex As Exception
MessageBox.Show("" & ex.Message,MessageBoxIcon.Exclamation)
End Try
End Sub
不能确定是否起作用,请提供帮助!
这是模块数据连接:
Option Explicit On
Option Strict On
Imports System.Data.OleDb
Module AccessDB_Connection
Public Function GetConnectionString() As String
Dim strCon As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & Application.StartupPath & "\BLdatabase.accdb;Persist Security Info = false;"
Return strCon
End Function
Public con As New OleDbConnection(GetConnectionString())
Public cmd As OleDbCommand
Public SQL As String = String.Empty
Public Function PerformCRUD(Com As OleDbCommand) As DataTable
Dim da As OleDbDataAdapter
Dim dt As New DataTable()
Try
da = New OleDbDataAdapter
da.SelectCommand = Com
da.Fill(dt)
Return dt
Catch ex As Exception
MessageBox.Show("" & ex.Message)
End Try
Return dt
End Function
End Module
解决方法
谢谢大家的回复; 所以这是execute方法:
Private Sub Execute(MySQL As String,Optional Parameter As String = "")
cmd = New OleDbCommand(MySQL,con)
AddParameters(Parameter)
PerformCRUD(cmd)
End Sub
Private Sub AddParameters(str As String)
cmd.Parameters.AddWithValue("Client",client.Text)
End Sub
Public Function PerformCRUD(Com As OleDbCommand) As DataTable
Dim da As OleDbDataAdapter
Dim dt As New DataTable()
Try
da = New OleDbDataAdapter
da.SelectCommand = Com
da.Fill(dt)
Return dt
Catch ex As Exception
MessageBox.Show("" & ex.Message)
End Try
Return dt
End Function
这很简单,我需要存储所选项目的ID值:
这是一个示例,当我从组合框中选择IMAX客户端时,我需要将该值26从该表客户端存储到其他表 enter image description here enter image description here
有2个不同的结果,这取决于所使用的查询: 与SQL =“插入到LIVRAISONCLIENTGNC(Codeclient)从客户端WHERE客户端= @Client中选择code_client“->没有任何反应 与SQL =“插入到LIVRAISONCLIENTGNC(Codeclient)值(从客户端的WHERE客户端= @Client中选择code_client)” ->错误 enter image description here
,我看到的问题,您正在尝试运行:
SQL = "INSERT INTO LIVRAISONCLIENTGNC(Codeclient) SELECT code_client from client WHERE client = @Client "
但是,在PerformCRUD方法中,您要填充数据适配器并基于INSERT返回DataTable
,其中ExecuteNoQuery
是要使用的方法。
以下是示例(More Info):
Using cmd = con.CreateCommand()
cmd.CommandText = SQL
'It is good practice to specify the data type. Note: 80 in this example is the column size/length.
cmd.Parameter.Add("@Client",OleDbType.VarChar,80).Value = client.Text
cmd.Connection = con
con.Open() 'if not already open
cmd.ExecuteNonQuery()
End Using
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。