Question

求帮忙写一段VB+SQL的语句

我用SQL弄了个数据库,现在想用VB做个前端界面

VB要的功能就是:在文本框里输入某个产品(比如笔记本电脑)然后就能SQL检索出相关的一些GB信息
SQL查询的语句我都会,现在就是完全不懂VB的编译

我数据库都不知道怎么连上
哪为大侠帮我写一个,能实现上面讲的功能#有注释更好#
如果问题不清,回头我再补充,分数好说
我家里是SQL2000个人版+VB6.0企业,现在要拿到学校去演示
SQL数据家里导出,到学校导入对吧
VB在家里生成EXE后,到学校的机器还用再装吗

我这么一个搬运的过程,中间有哪些地方容易出问题
我就怕家里都好的,换到学校就这个不行那个不行了

提示该问答中所提及的号码未经验证，请注意甄别。

Answer 1

用ODBC连接数据库的方法：
db.ConnectionString = "driver={SQL Server};server=服务器名称;uid=登录名称;pwd=登录密码;database=数据源名称"
db.Open
如果需要你提的功能，不是几句话能够说清楚的。
是啊
确实是这样的
如果需要帮助可以到VB小世界http://www.vbworld.cn来说明一下。
参考资料：http://www.vbworld.cn
光生成exe文件不行,你在学校还必须装上vb程序才能运行
你可以先生成.exe 再用vb自带的中文版工具--Package & Deployment 向导打包,完成后就成为一个安装工具,就没有你所担心的问题了.(别忘考上数据库)
Dim rs As New ADODB.Recordset
rs.ActiveConnection= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\学生管理.mdb;Persist Security Info=False"(按你的情况写,我用的是access数据库)
rs.LockType = adLockOptimistic
rs.CursorLocation = adUseClient
rs.Source = "select kcmc from lesson" ("按情况写你要的语句")
rs.Open
Text1.Text = rs.fields(0).value (将信息显示在文本框里)
不知道你明白了没有.如果有问题,还可发消息联系
我知道一个编程的软件
那就是VB
可以编2D和3D游戏的喔！
你可以看看那些游戏的图！
都是很好看的！
你可以加我的QQ
我的QQ号码是754639173
加我的时候要说明
VB游戏制作
哎`
我也在找有关VB的东西`
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cmd As New ADODB.Command
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" &"User ID=sa;PassWord=anxin;Initial Catalog=pubs"
conn.Open
cmd.ActiveConnection = conn '使用命令对象方法
cmd.CommandText = "select * from authors"
Set rst = cmd.Execute
可移植方面建议你最好打包后去安装,就不用安装VB环境了
如果还有其他不懂地方可以加我QQ94393589

Answer 2

光生成exe文件不行,你在学校还必须装上vb程序才能运行
你可以先生成.exe 再用vb自带的中文版工具--Package & Deployment 向导打包,完成后就成为一个安装工具,就没有你所担心的问题了.(别忘考上数据库)

Dim rs As New ADODB.Recordset
rs.ActiveConnection= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\学生管理.mdb;Persist Security Info=False"(按你的情况写,我用的是access数据库)
rs.LockType = adLockOptimistic
rs.CursorLocation = adUseClient
rs.Source = "select kcmc from lesson" ("按情况写你要的语句")
rs.Open
Text1.Text = rs.fields(0).value (将信息显示在文本框里)

不知道你明白了没有.如果有问题,还可发消息联系

Answer 3

Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cmd As New ADODB.Command

conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" &"User ID=sa;PassWord=anxin;Initial Catalog=pubs"
conn.Open
cmd.ActiveConnection = conn '使用命令对象方法
cmd.CommandText = "select * from authors"
Set rst = cmd.Execute

可移植方面建议你最好打包后去安装,就不用安装VB环境了
如果还有其他不懂地方可以加我QQ94393589

Answer 4

用ODBC连接数据库的方法：
db.ConnectionString = "driver={SQL Server};server=服务器名称;uid=登录名称;pwd=登录密码;database=数据源名称"
db.Open
如果需要你提的功能，不是几句话能够说清楚的。

Answer 5

哎`
我也在找有关VB的东西`