Dim Connstr As String
Connstr =
"server=(local);User ID=sa;Password=;database=test;Connection Reset=FALSE"
Dim conn As New SqlConnection
conn.ConnectionString = Connstr
Dim Comm As New SqlCommand
Comm.CommandText = "select name from sysobjects where xtype='u' "
Comm.Connection = conn
'打开数据库
conn.Open()
'执行SQL语句
Comm.ExecuteNonQuery()
conn.close()
Dim Connstr As String
Connstr =
"server=gtpc;User ID=sa;Password=sa;database=test;Connection Reset=FALSE"
Dim conn As New SqlConnection
conn.ConnectionString = Connstr
Dim Comm As New SqlCommand
Comm.CommandText = "select name from sysobjects where xtype='u' "
Comm.Connection = conn
'打开数据库
conn.Open()
'执行SQL语句
Comm.ExecuteNonQuery()
conn.close()