标题:求一个VB如何向SQL录入数据实例
只看楼主
实例学习
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2018-12-22
结帖率:0
已结贴  问题点数:20 回复次数:2 
求一个VB如何向SQL录入数据实例
各位大侠,求下个VB向SQL录入的实例
自己弄了半天没弄出来,只有通过实例来学习了
提示:我的是VB6精简版,SQL SERVER2005
WIN7 32位

先谢过了
搜索更多相关主题的帖子: VB SQL 录入 数据 实例 
2018-12-22 20:39
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
得分:10 
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 的版本。

请不要选我!!!
2018-12-23 12:17
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
得分:10 
对于没有访问过sql server的电脑需要向注册表写入访问端口1434,否则无法连接服务器。

能编个毛线衣吗?
2018-12-24 09:26



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-492224-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.240706 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved