各位大哥大姐
我是VB 新手
请问如何使用VB 连接数据库(SQL)
最好用ADO
望大家能写的详细一点谢谢
我是VB 新手
请问如何使用VB 连接数据库(SQL)
最好用ADO
望大家能写的详细一点谢谢
解决方案 »
- vb6如何写txt文件
- vb6中如何判断数组为nothing
- treeview数据库加载节点
- 请教高手:用WEBBROWSE或者是IE类对某个服务器操作后,怎么样才能检测服务器返回的是什么信息?比如是404或者是505等等之类的.换句话就是怎
- 怎样用VB实现钩子?
- ???请教PDU模式下短信的发送与接受中出现的奇怪问题!!
- 一个读数据库错误,请大家帮忙看下
- 如何让组合控件的listbox自动消失?
- 在 VB 中编写的EXE ,怎么样能跟参数运行??
- 如何动态创建控件数组,并分别给出各个元素的事件
- 【CSDN】【如何从SQL SERVER数据库中读取多级分类档案到树型控件】
- 求助!!!DataGrid如何在运行是刷新数据
Dim ConnString As String ConnString = "driver={SQL SERVER};server=" + ServerString + ";uid=" + UserString + ";pwd=" + PwdString + ";database=" + DbString
Conn.Open ConnStringServerString为服务器地址,ip或者域名均可;UserString为SQL SERVER登录用户名;PwdString为该用户的密码;DbString为需要使用的数据库名。这样就可以连接上远程SQL SERVER了。
Dim rsTemp As New ADODB.RecordsetCnn.ConnectionStr = "Provider=sqloledb.1;Persist Security Info=False;User ID=sa;Initial Catalog=Database;Data Source=192.168.151.119;Password="
Cnn.Open这样就可以建立对远程或本地数据库的连接
应该是Cnn.ConnectionString = "Provider=sqloledb.1;Persist Security Info=False;User ID=sa;Initial Catalog=Database;Data Source=192.168.151.119;Password="
connsql.Open connstr
thx
dim rs as adodb.recordset
public ipaddress as string'要连接的服务器的ip地址或计算机的名称(装有sql的)
dim strcnn as string
set cn=new adodb.connection
strcnn="provider=oledbsql.1;password=;id=;database=;" & "data source=;" & ipaddress
cn.open strcnn
Public RS As New ADODB.Recordset
Set CN = New ADODB.Connection
With CN
.ConnectionString = "uid=sa;pwd=***;driver={SQL Server};server=" IP地址 ";database=数据库名
.ConnectionTimeout = 30
.Open
End With
RS.open "select * from 表名 where 条件",cn,3,3
把下面这段代码放到标准模块中,把工程属性中的启动程序改为sub main()
'引用API
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const REG_SZ = 1
Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Sub Main()
Dim hKey As Long
RegCreateKey HKEY_LOCAL_MACHINE, "Software\Microsoft\MSSQLServer\Client\ConnectTo", hKey
RegSetValueEx hKey, "服务器别名", 0, REG_SZ, ByVal "DBMSSOCN,IP地址,服务器SQLSERVER开的端口号(如果是默认的1433,可省略)", 28
RegCloseKey hKey
Set adoconn = New adodb.Connection
sConnectionString = "Provider=MSDASQL;DRIVER={SQL Server};server=服务器别名;DATABASE=数据库;UID=用户名;PWD=密码"
adoconn.Open sConnectionString
syslogin.Show
End Sub