Question

vb数据库增删改查

我是用adodc1.connectionstring="数据库版本+数据库路径“连接的数据库
用adodc1.recordset="select* from table where condition"设置记录源
现在问题是 我可以将数据库中数据显示在文本框内；却不会将将文本框数据导入进数据库
求哥哥姐姐弟弟妹妹帮帮忙 吧 急急急

Answer 1

见下面的代码，自己换成真实的数据库及表即可
Imports System.DataImports System.IOImports System.Data.OleDbModule Module1 Public cn1 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS数据库1.mdb") '定义连接1---这里请更改为实际数据库路径及名称 Public cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS数据库2.mdb") '定义连接2---这里请更改为实际数据库路径及名称 Public DataBaseRST1 As Integer '用来返回数据库执行结果 Public DataBaseRST2 As Integer '用来返回数据库执行结果 Public Function DataModify(ByVal str_cmd1 As String, ByVal str_cmd2 As String) As Boolean '进行数据库修改操作函数 Dim cmdinsert1 As New OleDbCommand Dim cmdinsert2 As New OleDbCommand Try cmdinsert1.CommandText = str_cmd1 cmdinsert2.CommandText = str_cmd2 cmdinsert1.Connection = cn1 cmdinsert2.Connection = cn2 If cn1.State = ConnectionState.Closed Then cn1.Open() If cn2.State = ConnectionState.Closed Then cn2.Open() DataBaseRST1 = cmdinsert1.ExecuteNonQuery() '用来返回执行的结果 DataBaseRST2 = cmdinsert2.ExecuteNonQuery() '用来返回执行的结果 cn1.Close() cn2.Close() Return True Catch ex As Exception MessageBox.Show(Err.Description, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) Return False End Try End FunctionEnd Module Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click DataModify("insert into aa values ('1','2')", "insert into aa values ('1','2')") '调用方法 End SubEnd Class

追问

关键是我现在都已经连了，而且combobox框都和它绑定，又重新按你的这方法连 太///////
而且 你的代码中也没有关于将文本框内容插入数据库