『壹』 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函數。