如何用VB修改SQL SERVER 数据库TABLE表里面的数据

Question

我想用VB编好一段代码,生成EXE文件后,点确定就可以修改SQL数据库某张表TABLE里面一列的数据,比如 我在SQL下面修改数据一般用,UPDATE TABLE SET test=test*25 where test>100,而在VB下面应该怎么做呢,数据库连接我用ODBC连接,语句该怎么写,要做哪些设置,,我没搞过,希望高手能教教我,给我一例子,谢谢

Answer 1

你在vb里用同样的语句就可以了,不过如果是变量的话要注意修改sql的语句中的一些数据为vb相应的变量.
如果你有一个连接是myconn,
打开这个连接后(myconn.open)
运行myconn.execute(相应的sql语句)
就可以了.不过连接的是sql服务器,你可以找一些vb连接数据库的文章来看

Answer 2

s = " Update 档案"
        s = s & " SET 编号 = '" & dwserial & CStr(dy("id")) & "',相关 = '" & IIf(gldw = "", "", gldw & ",") & "'"
        s = s & " Where id = " & dy("id")
        cn.Execute s
cn是ADO连接

Answer 3

在VB里面操作数据库基本上要做到以下几步1.定义创建记录集变量
2.定义创建一个数据库连接变量
3.打开数据库
4.对数据库进行操作
对数据库操作的代码如果你会SQL语句的话基本上搞定。
新增：Insert Into 表名
修改：Update 表名 set **=** where ....
删除：delete from 表名 where....

Answer 4

方式1：Adodc1.RecordSource = "select * from 表名 where test>100"
Adodc1.Refresh
for i=1 to  Adodc1.Recordset.RecordCount
  With Adodc1.Recordset
    .Fields("test") = .Fields("test")*25
    .Update
  End With
  Adodc1.Recordset.MoveNext
  If Adodc1.Recordset.EOF Then exit for
next方式2：引用ADODim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim str As String
str = "Driver={Server};Server=服务名;DataBase=数据库名;UID=登陆用户;PWD=密码;"
cnn.Open str
cmd.CommandText = "UPDATE TABLE SET test=test*25 where test>100"
cnn.Execute cmd.CommandText

Answer 5

引用ADO的时候,我生成了EXE文件,但是数据库名发生了变化,怎么办,有不有动态设置的,也就是不用在源程序里修改就可以把这些"Server=服务名;DataBase=数据库名;UID=登陆用户;PWD=密码"改了