1. VB如何连接网络数据库
在工程里找到Microsoft ADO Data Control控件,拖到窗体上,事件中这么写:
Private Sub Coammand1_Click()
Adodc1.connectionstring="Driver={SQL Server};Server=服务器IP;Uid=用户名;Pwd=密码;DataBse=数据库名"
Adodc1.RecordSource="SELECT * FROM 表名 WHERE 条件"
Adodc1.Refrsh
End Sub
要进行数据操作就这样引用:
Adodc1.RecordSet.Fields("字段名")这就是操作数据字段
把Adodc1绑定到数据控件那就是绑定数据源
2. VB怎么与网络连接呀
你可以采用TCP/IP方式登录，方式如下：
"Provider=SQLOLEDB.1;Network Library=dbmssocn;Persist Security Info=False;Initial Catalog=数据库名;Data Source=IP地址;User ID=用户;Password=密码"
这个不满意的话
这里还有http://..com/question/17548088.html?si=4
3. vb中连接网络
如果你知道连接的名称，例如“连接到163”或“ADSL”，那么这段程序就可以运行了，不过你可不能保证你的用户机器上有同样的连接名称，所以还必须要使用一段API函数来枚举所有的可用拨号连接名称才行。
新建一个VB
Project，在Form1中做以下声明：
Private
Const
RAS_MaxDeviceType
=
16
Private
Const
RAS95_MaxDeviceName
=
128
Private
Const
RAS95_MaxEntryName
=
256
Private
Type
RASCONN95
dwSize
As
Long
hRasConn
As
Long
szEntryName(RAS95_MaxEntryName)
As
Byte
szDeviceType(RAS_MaxDeviceType)
As
Byte
szDeviceName(RAS95_MaxDeviceName)
As
Byte
End
Type
Private
Type
RASENTRYNAME95
dwSize
As
Long
szEntryName(RAS95_MaxEntryName)
As
Byte
End
Type
Private
Declare
Function
RasEnumConnections
Lib
"RasApi32.DLL"
Alias
"RasEnumConnectionsA"
(lprasconn
As
Any,
lpcb
As
Long,
lpcConnections
As
Long)
As
Long
Private
Declare
Function
RasEnumEntries
Lib
"RasApi32.DLL"
Alias
"RasEnumEntriesA"
(ByVal
reserved
As
String,
ByVal
lpszPhonebook
As
String,
lprasentryname
As
Any,
lpcb
As
Long,
lpcEntries
As
Long)
As
Long
Private
Declare
Function
RasHangUp
Lib
"rasapi32.dll"
Alias
_
"RasHangUpA"
(ByVal
hRasConn
As
Long)
As
Long
在Form上放一个ListBox或者ComboBox，然后在Form_Load中写入以下代码把当前可用的拨号连接名称加进去，这里我们使用ListBox。
Private
Sub
Form_Load()
Dim
s
As
Long,
l
As
Long,
ln
As
Long,
a$
ReDim
R(255)
As
RASENTRYNAME95
R(0).dwSize
=
264
s
=
256
*
R(0).dwSize
l
=
RasEnumEntries(vbNullString,
vbNullString,
R(0),
s,
ln)
For
l
=
0
To
ln
-
1
a$
=
StrConv(R(l).szEntryName(),
vbUnicode)
List1.AddItem
Left$(a$,
InStr(a$,
Chr$(0))
-
1)
Next
List1.ListIndex
=
0
End
Sub
好，现在你就可以运行一下了，ListBox中应该把当前所有的拨号连接名称都显示出来了。
下面再往Form上加一个命令按钮，Caption设为“Connect”。输入以下代码：
Private
Sub
Command1_Click()
Dim
cmd
As
String
cmd
=
"rundll
rnaui.dll,RnaDial
"
&
List1.List(List1.ListIndex)
Shell
cmd$,
vbNormalFocus
End
Sub
这段程序从ListBox获得选择的拨号连接名称，然后调用RunDLL建立拨号连接。如果已经建立连接，它将显示拨号连接的状态。如果你不想让对话框出现，再添一行代码上去：
DoEvents:SendKeys
"{enter}",
True
它将发送一个回车键到当前窗口，相当于用户按了“确认”按钮。
如何挂断当前的连接
我们继续在上面的基础上讲解，挂断连接要用到RasHangUp函数，我们在上面声明部分已经写过了。
再向Form1添加一个按钮Command2，Caption设为Disconnect，输入如下的代码：
Private
Sub
Command2_Click()
Dim
s
As
Long,
l
As
Long,
ln
As
Long,
a$,
RasConn
As
Long,
Ret
As
Long
b$
=
List1.List(List1.ListIndex)
ReDim
R(255)
As
RASCONN95
R(0).dwSize
=
412
s
=
256
*
R(0).dwSize
l
=
RasEnumConnections(R(0),
s,
ln)
For
l
=
0
To
ln
-
1
a$
=
StrConv(R(l).szEntryName(),
vbUnicode)
a$
=
Left$(a$,
InStr(a$,
Chr$(0))
-
1)
RasConn
=
R(l).hRasConn
'这里将挂断连接
Ret
=
RasHangUp(ByVal
RasConn)
Next
End
Sub
这段代码枚举当前所有的连接，并且把它挂断，如果你有双猫，三猫（没有这么好的条件吧），它将把所有连接都挂断。
如何判断当前是否连接到Internet
以前部分网站介绍过读取Registry来判断是否连接到Internet的方法，不过笔者认为这种方法不是最健壮，这里还是在上面的基础上用RasEnumConnections来判断某个连接是否已经连上线了。
再向Form1添加一个按钮Command3，Caption设为Status，输入如下的代码：
Private
Sub
Command2_Click()
Dim
s
As
Long,
l
As
Long,
ln
As
Long,
a$,
b$
b$
=
List1.List(List1.ListIndex)
ReDim
R(255)
As
RASCONN95
R(0).dwSize
=
412
s
=
256
*
R(0).dwSize
l
=
RasEnumConnections(R(0),
s,
ln)
For
l
=
0
To
ln
-
1
a$
=
StrConv(R(l).szEntryName(),
vbUnicode)
a$
=
Left$(a$,
InStr(a$,
Chr$(0))
-
1)
If
a$
=
b$
Then
MsgBox
"Connected
(or
connecting)!":
Exit
Sub
Next
MsgBox
"Not
Connected!"
End
Sub
本段代码判断ListBox当前选中的连接是否已经连接成功或者正在连接之中，并给出相应的信息。
4. vb如何连接WiFi
计算机连接wifi，
vb用winsock连接网络。
5. 我编写的vb，想实现连接网络的功能，要用到什么控件和函数
用winsock控件可以实现通过TCP/UDP连接其他网络程序并进行通讯的功能
用internet transfer control控件可以实现通过HTTP/FTP连接相关服务器并通讯的功能
以上两个控件的具体用法可以参考《VB6.0 控件参考手册》（上、下）
6. 在vb中连接网络
如果你知道连接的名称，例如“连接到163”或“ADSL”，那么这段程序就可以运行了，不过你可不能保证你的用户机器上有同样的连接名称，所以还必须要使用一段API函数来枚举所有的可用拨号连接名称才行。
新建一个VB Project，在Form1中做以下声明：
Private Const RAS_MaxDeviceType = 16
Private Const RAS95_MaxDeviceName = 128
Private Const RAS95_MaxEntryName = 256
Private Type RASCONN95
dwSize As Long
hRasConn As Long
szEntryName(RAS95_MaxEntryName) As Byte
szDeviceType(RAS_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
Private Type RASENTRYNAME95
dwSize As Long
szEntryName(RAS95_MaxEntryName) As Byte
End Type
Private Declare Function RasEnumConnections Lib "RasApi32.DLL" Alias "RasEnumConnectionsA" (lprasconn As Any, lpcb As Long, lpcConnections As Long) As Long
Private Declare Function RasEnumEntries Lib "RasApi32.DLL" Alias "RasEnumEntriesA" (ByVal reserved As String, ByVal lpszPhonebook As String, lprasentryname As Any, lpcb As Long, lpcEntries As Long) As Long
Private Declare Function RasHangUp Lib "rasapi32.dll" Alias _
"RasHangUpA" (ByVal hRasConn As Long) As Long
在Form上放一个ListBox或者ComboBox，然后在Form_Load中写入以下代码把当前可用的拨号连接名称加进去，这里我们使用ListBox。
Private Sub Form_Load()
Dim s As Long, l As Long, ln As Long, a$
ReDim R(255) As RASENTRYNAME95
R(0).dwSize = 264
s = 256 * R(0).dwSize
l = RasEnumEntries(vbNullString, vbNullString, R(0), s, ln)
For l = 0 To ln - 1
a$ = StrConv(R(l).szEntryName(), vbUnicode)
List1.AddItem Left$(a$, InStr(a$, Chr$(0)) - 1)
Next
List1.ListIndex = 0
End Sub
好，现在你就可以运行一下了，ListBox中应该把当前所有的拨号连接名称都显示出来了。
下面再往Form上加一个命令按钮，Caption设为“Connect”。输入以下代码：
Private Sub Command1_Click()
Dim cmd As String
cmd = "rundll rnaui.dll,RnaDial " & List1.List(List1.ListIndex)
Shell cmd$, vbNormalFocus
End Sub
这段程序从ListBox获得选择的拨号连接名称，然后调用RunDLL建立拨号连接。如果已经建立连接，它将显示拨号连接的状态。如果你不想让对话框出现，再添一行代码上去：
DoEvents:SendKeys "{enter}", True
它将发送一个回车键到当前窗口，相当于用户按了“确认”按钮。
如何挂断当前的连接
我们继续在上面的基础上讲解，挂断连接要用到RasHangUp函数，我们在上面声明部分已经写过了。
再向Form1添加一个按钮Command2，Caption设为Disconnect，输入如下的代码：
Private Sub Command2_Click()
Dim s As Long, l As Long, ln As Long, a$, RasConn As Long, Ret As Long
b$ = List1.List(List1.ListIndex)
ReDim R(255) As RASCONN95
R(0).dwSize = 412
s = 256 * R(0).dwSize
l = RasEnumConnections(R(0), s, ln)
For l = 0 To ln - 1
a$ = StrConv(R(l).szEntryName(), vbUnicode)
a$ = Left$(a$, InStr(a$, Chr$(0)) - 1)
RasConn = R(l).hRasConn
'这里将挂断连接
Ret = RasHangUp(ByVal RasConn)
Next
End Sub
这段代码枚举当前所有的连接，并且把它挂断，如果你有双猫，三猫（没有这么好的条件吧），它将把所有连接都挂断。
如何判断当前是否连接到Internet
以前部分网站介绍过读取Registry来判断是否连接到Internet的方法，不过笔者认为这种方法不是最健壮，这里还是在上面的基础上用RasEnumConnections来判断某个连接是否已经连上线了。
再向Form1添加一个按钮Command3，Caption设为Status，输入如下的代码：
Private Sub Command2_Click()
Dim s As Long, l As Long, ln As Long, a$, b$
b$ = List1.List(List1.ListIndex)
ReDim R(255) As RASCONN95
R(0).dwSize = 412
s = 256 * R(0).dwSize
l = RasEnumConnections(R(0), s, ln)
For l = 0 To ln - 1
a$ = StrConv(R(l).szEntryName(), vbUnicode)
a$ = Left$(a$, InStr(a$, Chr$(0)) - 1)
If a$ = b$ Then MsgBox "Connected (or connecting)!": Exit Sub
Next
MsgBox "Not Connected!"
End Sub
本段代码判断ListBox当前选中的连接是否已经连接成功或者正在连接之中，并给出相应的信息。
7. vb虚拟机怎么连wifi
是需要打开这种vb虚拟机的，再打开这种虚拟机的时候，还是要连接好WIFI信息的，保证这两种产品都是可以正常的接通电源的，然后输入这种WIFI的密码进行连接处理，同时要离得近一些，使这种信号变得更好，因此是可以这样连接WIFI的。