vb数据库增删改查
见下面的代码，自己换成真实的数据库及表即可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
编一个vb程序，要求能对数据库的资料进行增删改查
用Adodc控件来作 添加该控件的步骤: project(工程)->component(部件)->Microsoft ADO Data Control 6.0(OLEDB)
代码:
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Text1.Text = ""
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
Text6.Text = " "
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Update
End Sub
Private Sub Command3_Click()
datareport1.Show
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
End Sub
Private Sub Command5_Click()
Text5.Text = Val(Text3.Text) - Val(Text4.Text)
Text6.Text = Val(Text5.Text) * 0.5
End Sub
Private Sub Command7_Click()
Adodc1.Recordset.Edit
End Sub
怎么设计vb简单数据库应用程序
数据库用VB6编程语言，对新手而言，如何用好ADODC控件和DATAGRID控件相当重要。
具体做法：
新建数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件和引用。
然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。
SQL查询语言主要结构为：
Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]
查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。
SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。
一般先按上述连接，SQL用"SELECT * FROM TabelName"作调试，无问题，用一个按钮控件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1控件，再添加ADODC1控件再添其他内容。
SQL查询语言多写多用就会熟练，以上供提问者参考。
