vb远程访问sql
VB连接SQL:
Set Oj1 = CreateObject("Adodb.Connection")
Oj1.ConnectionTimeout = 30
Oj1.CommandTimeout = 600
Oj1.CursorLocation = 3
Set RsOj1 = CreateObject("Adodb.RecordSet")
RsOj1.CursorLocation = 3
RsOj1.CursorType = 3
RsOj1.LockType = 4
Oj1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False" _
+";Data Source=Ip地址;Initial Catalog=数据库" _
+";User ID=SQL用户名;Password=密码"
Oj1.Open
RsOj1.Source = "Select id From TableName "
RsOj1.ActiveConnection = Oj1
RsOj1.Open
Id1=RsOj1.Fields("id").Value
RsOj1.Close
Oj1.Close
Set Oj1 = Nothing
Set RsOj1 = Nothing
‘贰’ vb如何连接sql数据库
1、打开代码窗口，添加引用：Imports System.Data.SqlClient。
‘叁’ vb如何连接上远程SQL数据库
不知道你为什么要用ADOC来配置...直接用VB代码就OK了。
公共模块：
Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset对象
Dim ConnStr As String
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection
'On Error GoTo MyErr:
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=登录数据库用户名(默认为sa);Password=登录数据库密码;Initial Catalog=数据库名;Data Source=服务器名(IP地址)" '这是连接SQL数据库的语句
Conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
End Function
调用：
SQL = "SELECT * FROM 用户表 WHERE 用户名='" & Combo1.Text & "' AND 密码='" & Text1.Text & "' "
Set rs = Selectsql(SQL)
‘肆’ vb 远程访问sql数据库 出现 guest登录失败
你安装sqlserver时选的是通过windows用户验证登陆的吧，改成SQLserver用户验证试试。
‘伍’ 如何VB远程连接sql server2000,求详细过程
Dim Con As ADODB.Connection
Set Con = New ADODB.Connection
Con.ConnectionString = "driver={sql server};server=;uid=;pwd=;Database="
Con.ConnectionTimeout = 15
Con.Open
server是服务器地址，可以是IP也可以是域名，uid是SQL用户名，pwd是SQL登录密码，database是数据库名，
ConnectionTimeout这个是响应时间
‘陆’ vb连接远程sql数据库
VB连Oracle1、首先你可以新建一个ini文件（如程序名.ini文件）2、在vb中添加API函数：Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long3、在vb中添加要加载ini文件的代码：Sub LoadInitial()
Dim ret As Integer
Dim retstr As String * 256
On Error GoTo LoadInitial SysIniFile = Command$
If SysIniFile = "" Then
SysIniFile = App.Path & "\" & App.EXEName & ".ini"
End If
ret = GetPrivateProfileString("SYS INI", "UID", "", retstr, 256, SysIniFile)
If ret <> 0 Then
gUid = Left$(retstr, ret)
End If
ret = GetPrivateProfileString("SYS INI", "PASSWD", "", retstr, 256, SysIniFile)
If ret <> 0 Then
gPasswd = Left$(retstr, ret)
End If
ret = GetPrivateProfileString("SYS INI", "DBLINK", "", retstr, 256, SysIniFile)
If ret <> 0 Then
gDsn = Left$(retstr, ret)
End If
Exit Sub
LoadInitial:
MsgBox "LoadInitial: " & Error
Resume
End Sub
4、添加打开数据库的vb代码：Public Sub DbOpen()
Dim strconn As String
On Error GoTo Errorhandler:
strconn = "DATA SOURCE=" & gDsn
Set cnAdo = New ADODB.Connection
cnAdo.Provider = "MSDAORA"
With cnAdo
.CursorLocation = adUseClient
.CommandTimeout = 10
.ConnectionString = strconn
.Open strconn, gUid, gPasswd
End With
Exit Sub
Errorhandler:
MsgBox "Database connect Error:" & Err.Description
End Sub
‘柒’ Vb如何连接远程的sql server最好有实例代码，谢谢
Private Sub Command1_Click()
' Dim excel_app As excel.Application
' Dim excel_sheet As excel.Sheets
Dim excel_app As Object
Dim excel_sheet As Object
Dim rs As ADODB.Recordset
Dim strsql As String
Dim pubconn As ADODB.Connection
Dim exfieldA As String
Dim exfieldB As String
Dim exfieldC As String
Dim exfieldD As String
'打开数据库
Set rs = New ADODB.Recordset
Set pubconn = New ADODB.Connection
pubconn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=aaa;Data Source=(local)"
pubconn.Open
Set excel_app = CreateObject("excel.application") 'excel对象
Set excel_app = New Excel.Application
' excel_app.Visible = True
excel_app.Workbooks.Open FileName:="D:\astroboy\河南生税务支持系统\实现\字典\111.xls"
' excel_app.Worksheets(Combo1.ListIndex + 1).Activate
If Val(excel_app.Application.Version) >= 8 Then '检查excel文件的版本
Set excel_sheet = excel_app.ActiveSheet
Else
Set excel_sheet = excel_app
End If
'''创建sql表格
Dim crtstrsql As String
Dim exceltst As String
exceltst = Text1.Text
exfieldA = Trim$(excel_sheet.Cells(1, 1))
exfieldB = Trim$(excel_sheet.Cells(1, 2))
exfieldC = Trim$(excel_sheet.Cells(1, 3))
exfieldD = Trim$(excel_sheet.Cells(1, 4))
crtstrsql = ""
crtstrsql = crtstrsql & "create table " & exceltst & "(" & vbCrLf
crtstrsql = crtstrsql & exfieldA & " char(50) null," & vbCrLf
crtstrsql = crtstrsql & exfieldB & " char(6) null," & vbCrLf
crtstrsql = crtstrsql & exfieldC & " datetime null," & vbCrLf
crtstrsql = crtstrsql & exfieldD & " datetime null)"
pubconn.Execute crtstrsql
Dim new_value1 As String
Dim new_value2 As String
Dim new_value3 As String
Row = 2
Do
new_value = Trim$(excel_sheet.Cells(Row, 1)) '读取excel工作者第一列数据
new_value1 = Trim$(excel_sheet.Cells(Row, 2))
If excel_sheet.Cells(Row, 3) = "" Then
new_value2 = ""
Else
new_value2 = CDate(excel_sheet.Cells(Row, 3) & "1月")
End If
If excel_sheet.Cells(Row, 4) = "" Then
new_value3 = ""
Else
new_value3 = CDate(excel_sheet.Cells(Row, 4) & "1月")
End If
If Len(new_value) = 0 And Len(new_value1) = 0 Then Exit Do
'将这一值插入SQL数据库
strsql = "insert into " & exceltst & "(" & exfieldA & "," & exfieldB & "," & exfieldC & "," & exfieldD & ") values('" & new_value & "','" & new_value1 & "','" & new_value2 & "','" & new_value3 & "')"
pubconn.Execute strsql
Row = Row + 1 '读取下一行数据
Loop
MsgBox "传输数据完成！", vbOKOnly, "完成！"
pubconn.Close
excel_app.Quit
Set rs = Nothing
Set pubconn = Nothing
Set excel_app = Nothing
Set excel_sheet = Nothing
End Sub
或参考以下
EXCEL文件要设置固定格式，还要设置命名范围，然后才可以导入
大致思路如下：
'// 设置打开 EXCEL 文件的连接字符串
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=excel文件名;Extended Properties=Excel 8.0"
'// 以记录集的形式打开 Excel 文件，adoConn 为 ADODB.Connection 对象
adoConn.Open strConn
'// 将数据插入到指定的表中（以ODBC的方式打开SQL数据库）
strSQL = "INSERT INTO [odbc;Driver={SQL Server};Server=服务器IP;Database=数据库;UID=用户名;PWD=密码].SQL中的表名 SELECT EXCEL中的字段 FROM EXCEL工作表名"
'// 执行导入语句
adoConn.Execute strSQL, , adExecuteNoRecords
‘捌’ VB 用ADODB 远程连接SQL2005 数据库
在1中选择计算机A的名称；
在2中选择windowsNT集成安全设置登陆；
在3中选择数据库名称posgf；
点测试连接，弹出测试OK，点确定就行了
‘玖’ vb远程链接访问sql数据库
这个问题是这样的，用户权限不够,密码可能不同。。。确认数据库混合登录模式的情况下，
服务器上设一个USERS用户，加上密码，在客户机这边也加一个相同名字的，也加上相同的密码
这样就可以用此用户登录了。
当然您也可以用权限更大的比如administrator。一般来说，USERS用户没有其它权限，相对电脑在网络上要安全，又能访问SQL
这是最简单的处理方式。
xp 用户加USERS用户，要在控制面板，管理工具，电脑管理-用户里边加。
‘拾’ VB 远程连接SQL Server 2008
用ADO远程连接SQL的编写方式和局域网内部的是一样的，如果你在内网能够访问SQL的话，那么在公网上你需要在远端路由器上开启IP地址及端口映射，比如，SQL服务器的内网IP 是192.168.2.25 而外网地址是125.50.58.61 的话，你就必须在路由器上 添加125.50.58.61:443 到 192.168.2.25:443的映射记录。最好在SQL服务器上的防火墙里也添加上443端口例外。然后在程序里指定ADO的连接地址为125.50.58.61(SQL服务器的外网地址)
最后补充一下，通过公网直接访问SQL是不推荐的做法，主要是因为安全问题以及效率问题。一般的做法是在服务器端开发相应的数据服务程序，用于和客户端通信。建议你看看B/S和C/S两种架构。