16,553
社区成员
发帖
与我相关
我的任务
分享
Dim strcon, strcmd As String
strcon = "Initial Catalog=Conveniencestore;Data Source=(local);User ID=sa;Password=123456;"
Dim sqlcon As SqlConnection = New SqlConnection(strcon)
sqlcon.Open()
strcmd = "select * from 表名 where ygbh='aaa'"
Dim sqlcmd As SqlCommand = New SqlCommand(strcmd, sqlcon)
Dim dr As SqlDataReader
dr = sqlcmd.ExecuteReader
dr.Read()
'连接SQL Server数据库
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=“Provider=SQLOLEDB;Persist Security Info=False; Data Source=服务器名;Initial Catalog=数据库名;User ID=sa;Password=;”
oleDbConnection1=New System.Data.OleDb.OleDbConnection(strConnect)