VB6.0 *** 作SQL数据库（查询，修改，删除，添加）功能

要先与数据库建立连接,才能执行sql语句,

要是sql语句不能对数据库中的数据直接修改或添加,是没有办法对数据库进行更新,必须是正确的sql语句才行,你sql都有错误还想更新数据库.

从“工程”菜单中“引用” 引用Microsoft ActiveX data objects 2.8

private sub command_click()

Dim mycon As ADODB.Connection '定义连接数据库对象

'如果你的数据库是access用下面的方式打开数据库

'*****************************************

mycon.ConnectionString = "provider= microsoft.jet.oledb.4.0data source=" &App.Path & "/ 这里写数据库名.mdb"

''*****************************************

'如果你的数据库是SQL的用下面的方式打开数据库

'mycon.ConnectionString = "Provider=SQLOLEDB.1Integrated Security=SSPIPersist Security Info=trueInitial Catalog=数据库名Data Source=.\sqlexpress"

'***************************

mycon.Open'打开数据库

Dim rst As New ADODB.Recordset '定义一个记录集 ，用来打开表记录

sql="select * from information"

rst.Open Trim(SQL), mycon, adOpenKeyset, adLockOptimistic '打开记录集

rst.addnew '添加空记录

rst.fields(0)=text1,text

rst.fields(1)=text2,text

rst.fields(2)=text3,text

rst.fields(3)=text4,text

rst.fields(4)=text5,text

rst.update '更新数据库

msgbox"数据录入成功"

这样就可以了！ 不过我发现你的界面好像是VB.NET的，如果是VB.NET的你把邮箱发过来我直接过你发过去好了！

sQueryString是SQL（增删查改）语句

public

Boolean

ExecSQL(string

sQueryString)

{

SqlConnection

con

=

new

SqlConnection(ConfigurationManager.AppSettings["conStr"])

con.Open()

SqlCommand

dbCommand

=

new

SqlCommand(sQueryString,

con)

try

{

dbCommand.ExecuteNonQuery()

con.Close()

}

catch

{

con.Close()

return

false

}

return

true

}

}

建立一个类，明自己取，然后调用就是了

例如：

类

BC=NEW

类（）；

STRING

ist="INSERT

INTO

XX(1,2,3)VALUES(A,B,C)"

BC.ExecSQL（ist）

就可以了

---