VB+sql能简单实现查询删除修改添加的系统 急。。

新建一个工程，引用microsoft activex data objects 2x library添加一个模块，定义Public mConnect As New ADODBConnection可以在form_load 时定义如下：Dim Rec As New ADODBRecordsetmConnectOpen "Provider=SQLOLEDB1;Persist Security Info=False;User ID=sa;password=softkk你的数据库密码;Initial Catalog=bms你的数据库名;Data Source=[所连接数据库IP地址，本地为 ]"以上可以与数据库建立联系通过如下代码实现查询、添加、删除Rec Open "select from table[你的表名] where 条件", mConnect, adOpenStatic, adLockOptimisticRec Open "update table[你的表名] set 。。 where 。。", mConnect, adOpenStatic, adLockOptimisticRec Open "delete from table[你的表名] where 条件", mConnect, adOpenStatic, adLockOptimistic

建立一个ADO数据库连接，然后用SQL语句插入数据

如：

Private Sub Commmand1_Click()

Dim adoConn As New ADODBConnection

Dim adoConStr AS String

Dim mySQL AS String

adoConStr="Provider=SQLOLEDB1;Persist Security Info=True;User ID=sa; Password=123;

Data Source =服务器名;Initial Catalog=xsda;"

mySQL="INSERT INTO cj(yw,sx,wl,ID) Values ('"+Text1+"','"+Text2+"','"+text3+"',005)"

adoConnOpen adoConStr

adoConnExecute mySQL

据我观察你录入是成绩数据，如果数据字段是“数值”型的话，那SQL语句就要变一下了

一是数值转换，二是保留了2位小数

mySQL="INSERT INTO cj(yw,xs,wl,ID) Values ("

mySQL=mySQL + Format(text1,"#000")+","

mySQL=mySQL + Format(text2,"#000")+","

mySQL=mySQL + Format(text3,"#000")+",005)"

在执行插入的SQL 语句

adoConnExecute mySQL

End Sub

你这里没有理解用VB拼接sql的方法

select from jbxx where 编号='A-001'

如果要将查询条件变为可变的，那么应该类似下面的方法进行编写：

dim strSql as string

strSql="select from jbxx where 编号='" & "A-001" & "'"

然后进行执行

连接 srv 数据库的语句略

strSQL = "Select From card"

RSOpen strSQL, db, 3, 3

Do While Not RSEOF '使历遍整个数据表

RS("字段名")=Int(RS("字段名")) '用 Int 取整函数取整

'也可以

RS("字段名")=Round(RS("字段名"),0) '可以使用 Round 函数，四舍五入，取掉小数部分

RSUpDate

RSMoveNext

Loop

RSClose

Set RS = Nothing

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

以上就是关于VB+sql能简单实现查询删除修改添加的系统 急。。全部的内容，包括:VB+sql能简单实现查询删除修改添加的系统 急。。、VB写入SQL、VB6.0 *** 作SQL数据库（查询，修改，删除，添加）功能等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！