vb點虐 如何連接遠程db2數據庫

如果要程序直接連接DB2數據庫，必須要有連接數據庫的驅動程序，連接的代碼，你可以參考如下（以前用C#寫的，你改成VB.NET即可，ODBC連接對象）

成都創新互聯公司服務項目包括無為網站建設、無為網站制作、無為網頁制作以及無為網絡營銷策劃等。多年來，我們專注于互聯網行業，利用自身積累的技術優勢、行業經驗、深度合作伙伴關系等，向廣大中小型企業、政府機構等提供互聯網行業的解決方案，無為網站推廣取得了明顯的社會效益與經濟效益。目前，我們服務的客戶以成都為中心已經輻射到無為省份的部分城市，未來相信會繼續擴大服務區域并繼續獲得客戶的支持與信任！

public?OdbcConnection?Db2Conn()

{

string?str?=?"DRIVER=IBM?DB2?ODBC?DRIVER;UID=db2admin;PWD=db2admin;AUTHENTICATION=SERVER;PORT=50000;HOSTNAME=192.168.100.98;PROTOCOL=TCPIP;DATABASE=YCDATA";

OdbcConnection?Conn?=?new?OdbcConnection(str);

return?Conn;

}

如果你是開發桌面程序而又不想在客戶端安裝數據庫的驅動程序，那么你可以采用web網站（含webservice）或者remoting方式，只需要在服務端安裝驅動即可

VB如何實現遠程登陸

Public rsNew As ADODB.Recordset

Public CnNew As ADODB.Connection

Public addFlag As Boolean

'連接數據庫

Public Function OpenCn() As Boolean

Dim Mag As String

On Error GoTo strErrMag

Set CnNew = New ADODB.Connection

CnNew.ConnectionTimeout = 25

CnNew.Provider = "sqloledb"

CnNew.Properties("data source").value = "" 'SQL服務器的名

CnNew.Properties("initial catalog").value = "pubs"'庫名

CnNew.Properties("integrated security").value = "SSPI"'登陸類型

'con.Properties("user id").value = "sa"

'con.Properties("password").value = "wwww"

CnNew.Open

OpenCn = True

addFlag = True

Exit Function

strErrMag:

Mag = "數據庫末連接"

Call MsgBox(Mag, vbOKCancel, "錯誤:數據庫連接")

addFlag = False

End

End Function

Public Sub Clocn()

'閉關數據庫

On Error Resume Next

If CnNew.State adStateClosed Then CnNew.Close

Set CnNew = Nothing

End Sub

Public Function OpenRs(ByVal strSql As String) As Boolean

'連接數據庫記錄集

Dim Mag As String

Dim rpy As Boolean

On Error GoTo strErrMag

Set rsNew = New ADODB.Recordset

If addFlag = False Then rpy = OpenCn

With rsNew

.ActiveConnection = CnNew

.CursorLocation = adUseClient

.CursorType = adOpenKeyset

.LockType = adLockOptimistic

.Open strSql

End With

addFlag = True

OpenRs = True

Exit Function

strErrMag:

Mag = "數據庫數據集末連接"

Call MsgBox(Mag, vbOKOnly, "錯誤:數據庫連接")

OpenRs = False

End

End Function

Public Sub cloRs()

'閉關數據集

On Error Resume Next

If rsNew.State adStateClosed Then rsNew.Close

Set rsNew = Nothing

End Sub

研究可以，別做壞事！

現在需要寫代碼(VB.NET，C#也行)，要連接遠程電腦(有登陸用戶名和密碼)，該怎么寫？Thans！！

1：連接遠程電腦，這個技能你能處理不？

1.1：不能處理，那么想問下，連接遠程電腦是怎么樣方式，使用telnet?還是什么？你要連接人家的電腦，肯定對方要開放端口，或者提供服務。比如sqlserver，你連接遠程電腦上的sqlserver服務。

1.1.1舉個例子，你使用telnet連接對方的電腦，要求對方是提供并使telnet服務可用的，那么你先向對方發送一個請求，對方電腦會回復你提示是否可以正常通信。正常情況下，對方電腦要求你輸入用戶名和密碼。如果兩者正常，那么提示你登錄成功。

1.2：如果連接遠程電腦，你可以解決，不用考慮，那么樓主你是想實現以后可以不用再輸入用戶名和密碼就可以直接登錄是不？

2：處理登錄一次成功后，以后不用再次輸入用戶名和密碼

2.1其實說到底，以后不用再次輸入，那么就是讓程序實現自動輸入用戶名和密碼，不用你去輸入，是不？

2.2你在第一次登錄成功后，就應該把對方電腦的名稱（或者地址），包括用戶名和密碼保存起來。下次程序自動去判斷，當前操作的是不是曾經登錄成功過的電腦。用保存起來的用戶名和密碼進行自動登錄。

2.3延深開來。登錄時，作下確認是否需要進行下次自動登錄，需要的情況下，保存相關2.2的信息。

2.4再延深，你可以設置保存的信息多久失效，比如15天之間沒有使用過的情況下，連接電腦時要求重新輸入用戶名和密碼。（此時，需要在每次登錄成功后，都在2.2的信息上，記錄下最后一次登錄的時間）

vb點虐 遠程連接mysql數據庫的問題

Dim ADOrs AS RecordsetADOrs.Open "select * from {你的表名} where name='"+text1+"'" '把textbox1作為檢索的對象即用來輸入查找的條件 if NOT ADOrs.EOF then '開始查找(用了取么操作沒有找到到指針即找到了記錄)那么執行下面的語句 ADOrs("name")=trim(text1) '把字段name顯示給textbox1 ADOrs("year")=trim(text2） '把字段year顯示給textbox2 else msgbox "數據庫沒有檢索到你要搜索的記錄！"，vbokonly,"提示" end if ADOrs.close '最后記得把剛才打開的記錄集給關閉掉或則會給數據庫添加負荷的。