ado.net高手请进（送分100）

[stevenfangzheng]

各位大虾：
如何用ado.net连接数据库，用代码方式。

[meattvb]

以连接Sql server 2000中的pub数据库为例
code:
dim sql as string="data source=(local);initial catalog=pub;user=sa"
dim con as new sqlclinet.sqlconnection(sql)
con.open()
//----
用dataadapter的Fill 方法时：后面一个应该是数据集！（dataset）
code:
dim ds as new data.dataset
dim adp as new sqlclient.sqldataadapter("retrieve code",con)
adp.fill(ds,"yourtablename")

[zag]

string connectstring="data source=服务器名;initial catalog=数据库名;password=密码;persist security info=True;user id=登录用户名;workstation id=工作站机器名;packet size=4096";
try{
System.Data.SqlClient.SqlConnection sc=new System.Data.SqlClient.SqlConnection(connectstring);
sc.Open();
}
catch(Exception ex)
{
MessageBox.Show(this,"Can not connect to database");
}

[stevenfangzheng]

请问，用SqlClient.SqlDataAdapter的fill方法时，后面一个参数应该是datatable呢,还是一个数据集。谢谢！

[sdgqx]

可以是数据集，或者是fill（数据集，“datatable”）

[weity]

Public Function WiseDatabaseConnectForADONet(ByVal strWiseOraTNS As String, ByVal strWiseUserName As String, ByVal strWiseUserPassword As String) As Boolean
Dim booReturnValue As Boolean
booReturnValue = False
If cntForOleDb.State <> ConnectionState.Open Then
Try
cntForOleDb.ConnectionString = "Provider=MSDAORA.1;Password=" & strWiseUserPassword & ";User ID=" & strWiseUserName & ";Data Source=" & strWiseOraTNS
cntForOleDb.Open()
booReturnValue = True
Catch myException As System.Exception
Call WiseErrorDeal("WiseDatabaseConnectForADONet", Err)
End Try
End If
Return booReturnValue
End Function

give me your email
i send some module