vb sql（vb.net连接sql数据库）

1. VB中如何连接SQL?出的一点小状况
2. vb.net连接sql数据库

VB中如何连接SQL?出的一点小状况

其实最简单的连接是不需要ADO控件的，在工程选项下选择引用然后找到Microsoft ActiveX data Objects 2.8 Library（如果有更高的选项也可以）

Private Sub Command1_Click()dim cnado as new adodb.connectiondim rsado as new adodb.recordsetcnado.open "driver={sql server};server=(local);database=ep;uid=sa" '如果有密码的话后面要加上rsado.Open "select * from table1", cnado, adOpenStatic, adLockReadOnly, -1text1.Text =rsado.Fields ("line1").Value end sub如果字段里的信息增加用text1就只能显示一个了，不过这样应该满足你的要求了！！！

vb.net连接sql数据库

比如有个asp.net(vb.net)连接sqlserver2000数据库的连接模块(module)：ModuleMdlCommonPublictxtSQLAsString'存放SQL语句PublicDBSetAsDataSet'查询得到的记录集PublicErrorMsgAsString'存放错误信息PublicFunctionExecuteSQL(ByValstrSQLAsString,ByReferrMsgAsString)AsDataSetDimcnnAsSqlClient.SqlConnectionDimcmdAsNewSqlClient.SqlCommand()DimadptAsSqlClient.SqlDataAdapterDimrstAsNewDataSet()DimSplitSQL()AsStringerrMsg=""TrySplitSQL=Split(strSQL)cnn=NewSqlClient.SqlConnection("datasource=(local);initialcatalog=urp;userid=sa;pwd=1234"

)IfInStr("INSERT,DELETE,UPDATE",UCase$(SplitSQL(0))

)Thencmd.Connection=cnncmd.Connection.Open()cmd.CommandText=strSQLcmd.ExecuteNonQuery()Elseadpt=NewSqlClient.SqlDataAdapter(strSQL,cnn)adpt.Fill(rst)ExecuteSQL=rstEndIfCatchexAsExceptionerrMsg=ex.MessageFinallyrst=Nothingcnn=NothingEndTryEndFunctionEndModule调用时在asp.net后台写上txtSQL="SELECT*FROMuser";DBSet=ExecuteSQL(txtSQL,ErrorMsg)就可以查询db返回结果了。

到此，以上就是小编对于vb sql多条件去重的问题就介绍到这了，希望介绍的2点解答对大家有用，有任何问题和不懂的，欢迎各位老师在评论区讨论，给我留言。