注册 登录
编程论坛 VB6论坛

求一个VB如何向SQL录入数据实例

实例学习 发布于 2018-12-22 20:39, 2471 次点击
各位大侠,求下个VB向SQL录入的实例
自己弄了半天没弄出来,只有通过实例来学习了
提示:我的是VB6精简版,SQL SERVER2005
WIN7 32位

先谢过了
3 回复
#2
ZHRXJR2018-12-23 12:17
VB6精简版,现在使用的网友没有几个,因为它的功能太少太少了,控件也少得多,希望安装 VB 6.0 企业版 SP6 的版本,不要使用VB6精简版了。
至于 Win 7 操作系统 32位的应该不是问题,VB6精简版 是不是能够连接 SQL Server 2005 ,没有试过。
在 VB 6.0 企业版 SP6 连接 SQL Server 2005 ,没有问题。
程序代码:

Dim cnn As New ADODB.Connection, RS As New ADODB.Recordset
cnn.ConnectionString = "provider=SQLOlEDB.1;persist security info=false;data source=服务器名称或服务器的IP地址;user id=sa;Password=sa用户的登录密码;initial catalog =数据库名称"    '连接SQL 2005 数据库语句
cnn.Open    '打开数据库连接
SQLM = "Select * From 需要录入的数据表名称"
RS.Open SQLM, cnn, 3, 2
    RS.AddNew
        RS!字段1 = Text1.Text
        RS!字段2 = Text2.Text
        '.......................
        RS!字段n = Textn.Text
    RS.Update
  RS.Close
  cnn.Close

一个非常简单的录入代码,希望对你有帮助。还是希望安装 VB 6.0 企业版 SP6 的版本。
#3
wmf20142018-12-24 09:26
对于没有访问过sql server的电脑需要向注册表写入访问端口1434,否则无法连接服务器。
#4
huwei8532023-05-20 16:42
RS.Open SQLM, cnn, 3, 2 请问3.2 什么意思
RS.Open SQLM, cnn, 3, 2  请问3.2 什么意思
1