向大家请教关于VB中数据库连结的问题！分不够在加！

Question

我想通过vb编写组件来实现自动创建数据库及数据库用户的功能，这时要用到sql server中的master表中的存储过程，那请问大家我怎莫才能实现这个功能，我不晓得在vb中怎样连结数据库！

Answer 1

一般情况都可以用ODBC接口来进行数据库的设置。

Answer 2

Dim p_cn As New ADODB.Connection
Dim rs_user As New ADODB.Recordset
p_cn.Open "Provider=SQLOLEDB.1;Data Source=DATA-SERVER;User ID=sa;Password=sa;Initial Catalog=Attrib_data;"rs_user.Open "select * from 用户组表 where 用户组='" & P_Level & "'", p_cn, adOpenKeyset, adLockOptimistic

Answer 3

MSDN中有ADO的资料找找看就明白了

Answer 4

先在工程中 引用  microsoft activeX Dara Objects然后
Dim rs As ADODB.Recordset
dim con as adodb.connetion
Dim strSQL As StringSet con = New ADODB.Connection
Set rs = New ADODB.Recordsetcon.ConnectionString = "Provider=SQLOLEDB.1;Password=june1234;Persist Security Info=True;User ID=sa;Initial Catalog=mrmt;Data Source=N091"
con.CursorLocation = adUseClient
con.OpenstrSQL = "delete from out_kc where gk_bianhao ='" & Text30.Text & "' and bianhao='" & DataGrid4.Columns(0).Text & "'and riqi_t='" & Format(DTPicker2.Value, "ddddd") & "'"rs.Open strSQL, con, adOpenKeyset, adLockOptimistic

Answer 5

要在工程中实现这个功能呢连结上数据库后执行存储过程！
Dim ConnStr As New ADODB.ConnectionConnStr.Open "Provider=SQLOLEDB.1;Data Source=(LOCAL);User ID=sa;Password=bukefeihua;Initial Catalog=master;"
ConnStr.EXEC sp_addlogin 'panjin', 'panjin', 'zhf',null