| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2318 人关注过本帖
标题:求一个VB如何向SQL录入数据实例
只看楼主 加入收藏
实例学习
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2018-12-22
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
求一个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
huwei853
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2020-2-19
收藏
得分:0 
RS.Open SQLM, cnn, 3, 2 请问3.2 什么意思
RS.Open SQLM, cnn, 3, 2  请问3.2 什么意思
2023-05-20 16:42
快速回复:求一个VB如何向SQL录入数据实例
数据加载中...
 
   



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

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