s4 dota2:vb.net增加修改删除sql server 2000数据库及表。

Module Module1

Sub Main()
Dim conn As New System.Data.SqlClient.SqlConnection
Dim sql As String
conn.ConnectionString = "server=(local);database=pubs;uid=sa;pwd=sa"
'插入数据
sql = "insert into jobs(job_desc,max_lvl,min_lvl) values ('aaa',100,10)"
Operator(sql, conn) '自定义方法

'修改数据
sql = "update jobs set job_desc='bbb',max_lvl=100,min_lvl=11 where job_id=2"
Operator(sql, conn) '自定义方法

'删除数据
sql = "delete from jobs where job_id=2"
Operator(sql, conn) '自定义方法

End Sub

Sub Operator(ByVal strQry As String, ByVal con As System.Data.SqlClient.SqlConnection) '自定义方法
Dim com As New System.Data.SqlClient.SqlCommand
com.CommandText = strQry '获取或设置要对数据源执行的 SQL 语句或存储过程。
com.CommandType = CommandType.Text '获取或设置一个指示如何解释 CommandText 属性的值
com.Connection = con
Try
com.Connection.Open()
com.ExecuteNonQuery() '执行SQL 语句或存储过程
com.Connection.Close()
Catch ex As Exception
com.Connection.Close()
Console.WriteLine(ex.ToString())
End Try
End Sub

End Module

如想将任意文件导入Sqlserver数据库，请使用导入数据向导

不错!!不错!!不错!!