关闭

VB 连接SQL2000数据库代码

标签: 数据库vbsqldatagridmicrosoftsecurity
4051人阅读 评论(0) 收藏 举报
分类:


Private Sub Command1_Click()

'首先引用Microsoft  Activex  Data  Objects  2.x  Library
Dim objcon   As New ADODB.Connection
Dim objrs   As New ADODB.Recordset
Dim strConn As String

strConn = "Provider=SQLOLEDB.1;User ID=sa;password=密码;Initial Catalog=数据库名称;Data Source=本机IP地址(192.168.1.136)"
objcon.Open strConn
'strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=hNXQF222;Initial Catalog=database;Data Source=192.168.1.136"

'objcon.Open "Provider=sqloledb.1;user  id=sa;password=hNXQF222;Initial  Catalog=Northwind;Data  Source="
objrs.Open "select  *  from  Orders", objcon, 3, 1
'在部件中添加DataGrid控件
Set DataGrid1.DataSource = objrs
End Sub

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1210343次
    • 积分:15228
    • 等级:
    • 排名:第767名
    • 原创:294篇
    • 转载:60篇
    • 译文:2篇
    • 评论:188条
    文章存档
    最新评论
    C#+Jquery
    C#+Jquery