| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
买学问 - 大牛一对一辅导,有问必答买学问 - 专业的付费知识问答平台
共有 481 人关注过本帖
标题:求一个VB如何向SQL录入数据实例
只看楼主 加入收藏
实例学习
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2018-12-22
结帖率:0
  已结贴   问题点数:20  回复次数:2   
求一个VB如何向SQL录入数据实例
各位大侠,求下个VB向SQL录入的实例
自己弄了半天没弄出来,只有通过实例来学习了
提示:我的是VB6精简版,SQL SERVER2005
WIN7 32位

先谢过了
2018-12-22 20:39
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:95
帖 子:877
专家分:4602
注 册: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: 18Rank: 18Rank: 18Rank: 18Rank: 18
等 级:贵宾
威 望:175
帖 子:1774
专家分:9980
注 册:2014-12-6
  得分:10 
对于没有访问过sql server的电脑需要向注册表写入访问端口1434,否则无法连接服务器。

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







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

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