『壹』 vb.net 如何连接网络access
ACCSOURCE = "\\sever1\test.mdb" 'access的网路路经
Set conn = CreateObject("ADODB.Connection")
Set myrs = CreateObject("ADODB.Recordset")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123;Mode=;Data Source=" & ACCSOURCE '123为密码,access有密码时需版要输入正权确密码
『贰』 VB.NET如何判断电脑是否已连接到网络
If My.Computer.Network.IsAvailable Then
'如果可用
Else
'不可用
End If
『叁』 提问vb.net怎么网络远程连上MYSQL数据库
您好,请参考 MySQL 官方给出的相关解决方案
MySQL Connector Net
官方首页
http://www.mysql.com/procts/connector/
最新 .NET 驱动版程序官方下载地址
http://dev.mysql.com/downloads/connector/net/
下权载安装完成后,在安装目录下 Samples 文件夹中有详细示例。
『肆』 求vb.net 连接宽带和断开的代码
编写一个宽带连接的批处理脚本:
rasdial entryname [unseranamd 12345678]
编写一个宽带断开的批处理脚本版:权
rasphone -h entryname
在vb中调用这两个脚本执行就可以了;
『伍』 vb中如何实现网络连接
shell "http://www..com/ explorer"
『陆』 vb.net连接hana的代码
可以先创建对hana的ODBC连接ODBCNAME,然后:
'''<summary>
'''根据SQL语句查询数据
'''</summary>
'''<paramname="sql">SQL查询语句</param>
'''<returns>结果集</returns>
PublicFunctiongetDataSetBySql(sqlAs[String])AsDataSet
Try
DimdsAsNewDataSet()
DimcommandAsNewOdbcCommand(sql)
'command对象
DimconnstringAs[String]="dsn=ODBCNAME;uid=USERID;pwd=PASSWORD"
'ODBC连接字符串
(connstring)
'创建connection连接对象
command.Connection=connection
connection.Open()
'打开链接
(command)
'实例化dataadapter
adapter.Fill(ds)
'填充查询结果
Returnds
EndUsing
CatchexAsException
ThrowNewException(ex.Message)
EndTry
EndFunction
『柒』 用vb.net实现网络通信
用 vb.net socket通信
Dim th As Threading.Thread
2 Dim tcpl As System.Net.Sockets.TcpListener
3
4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))
6 th.Start()
7 End Sub
8
9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)
10 Try
11 If IP <> "" Then
12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)
13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream
14 Dim reqStream As New IO.StreamWriter(tcpStream)
15 reqStream.Write(SendMsg)
16 reqStream.Flush()
17 tcpStream.Close()
18 tcpc.Close()
19 End If
20 Catch ex As Exception
21 MsgBox(ex.Message.ToString)
22 End Try
23 End Sub
24 Private Sub MyListen()Sub MyListen()
25 Try
26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)
27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)
28 tcpl.Start()
29 While True
30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()
31 Dim MyBuffer(1024) As Byte
32 Dim i As Integer
33 i = s.Receive(MyBuffer)
34 If i > 0 Then
35 Dim lstrRec As String
36 Dim j As Integer
37 For j = 0 To i - 1
38 TextBox1.Text += Chr(MyBuffer(j)) & ","
39 Next
40 End If
41 End While
42 Catch ex As Exception
43 MsgBox(ex.Message.ToString)
44 End Try
45 End Sub
46
47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
48 SendMessage("192.168.0.61", TextBox2.Text)
49 End Sub
『捌』 vb中如何来实现连接网络盘
下记函数试一下。
a_MappedPath:映射路径
MappedDriveName :映射盘符
a_PathUserName:用户名
a_PathPassWord:口令
Public Function MapNetDrive(a_MappedPath As String, Optional a_MappedDriveName As String = "Z", Optional a_PathUserName As String = "", Optional a_PathPassWord As String = "") As Boolean
Dim NetR As NETRESOURCE
Dim ErrInfo As Long
With NetR
.dwScope = RESOURCE_GLOBALNET
.dwType = RESOURCETYPE_DISK
.dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
.dwUsage = RESOURCEUSAGE_CONNECTABLE
.lpLocalName = Left(a_MappedDriveName, 1) & ":"
.lpRemoteName = a_MappedPath
End With
ErrInfo = WNetAddConnection2(NetR, a_PathPassWord, a_PathUserName, CONNECT_UPDATE_PROFILE)
MapNetDrive = IIf((ErrInfo = NO_ERROR), True, False)
End Function
用到的API和TYPE
Public Type NETRESOURCE
dwScope As Long
dwType As Long
dwDisplayType As Long
dwUsage As Long
lpLocalName As String
lpRemoteName As String
lpComment As String
lpProvider As String
End Type
Public Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long
『玖』 VB/.NET 如何检测本机是否已经连接上网络
新建工程,加入一模块,代码如下:
Option Explicit
Public isolerr As Boolean
Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long
Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long
'
Public Const RAS95_MaxEntryName = 256
Public Const RAS95_MaxDeviceType = 16
Public Const RAS95_MaxDeviceName = 32
'
Public Type RASCONN95
dwSize As Long
hRasCon As Long
szEntryName(RAS95_MaxEntryName) As Byte
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
'
Public Type RASCONNSTATUS95
dwSize As Long
RasConnState As Long
dwError As Long
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
Public Function IsConnected() As Boolean
Dim TRasCon(255) As RASCONN95
Dim lg As Long
Dim lpcon As Long
Dim RetVal As Long
Dim Tstatus As RASCONNSTATUS95
'
TRasCon(0).dwSize = 412
lg = 256 * TRasCon(0).dwSize
'
RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
If RetVal <> 0 Then
MsgBox "出现错误!", vbCritical + vbDefaultButton1 + vbOKOnly, "错误!"
Form1.wangluozhuangkuang.Visible = False
isolerr = True
Exit Function
End If
'
isolerr = False
Tstatus.dwSize = 160
RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
If Tstatus.RasConnState = &H2000 Then
IsConnected = True
Else
IsConnected = False
End If
End Function
在窗体中添加一记时器(Timer),代码如下:
Private Sub Timer1_Timer()
checkonline
End Sub
然后在通用声明中添加如下代码
Sub checkonline()
If isolerr = False Then
If IsConnected = True Then
wangluozhuangkuang.Caption = "已经连接网络"
Else
wangluozhuangkuang.Caption = "尚未连接网络"
End If
End If
End Sub
最后在窗体上添加一Label,名字为wangluozhuangkuang
不懂再问我
『拾』 VB能用代码通过命令按钮来控制网络的连接和断开吗
小弟才疏学浅,想到了一个办法,禁用网络服务,禁用是好禁用,
但是启用后要内重新启动计算机才有效。
添加两容个按钮,直接输入下面的代码:
Option Explicit
Private Sub Command1_Click()
'禁用
Shell "cmd.exe /c net stop SharedAccess & net stop netman", vbHide
End Sub
Private Sub Command2_Click()
'启用
Shell "cmd.exe /c net start netman & net start SharedAccess", vbHide
End Sub
PS:若想实现的完美还是应该调用API函数。