今天起开始学VB操作SQL Server!希望大侠们支持一下...

[qyii]

已知:
　　刚装好SQL Server~在数据库下新建了一个数据库,名叫:test123!其它都采用默认设置!新建了一个表,叫test567~结构如下:
　　列名　　　　数据类型　　　　长度　　　允许空行
　　NameID　　　varchar　　　　　10　　　　　否
　　Item　　　　varbinary　　　　1000　　　　是
　　Number　　　int　　　　　　　4　　　　　 是
　　Date　　　　smalldatetime　　4　　　　　 是
　　Version　　 tinyint　　　　　1　　　　　 是
　　PassWord　　smallint　　　　 2　　　　　 是

要怎么样才可以读写里面的每个字段呢??

希望有完整的例子!谢谢~~

[online]

数据字段填充listbox的
Private Sub Form_Load()
Dim apppath As String
Dim DbFileName As String
Dim ConnectString As String
Dim i As Integer
Set conn = New ADODB.Connection
Dim sql As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
DbFileName = App.Path & "\article.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
DbFileName & ";Persist Security Info=False;"

On Error Resume Next
With conn
.CursorLocation = adUseClient
.Open ConnectString
End With

rs.Open "select * from mz", conn, 1, 3

Set rs = New ADODB.Recordset
rs.Open "select id,mc from mz", conn, 1, 3
If rs.EOF Then
Exit Sub
End If

For i = 0 To rs.RecordCount - 1
List1.AddItem rs.Fields("mc")
List1.ItemData(i) = rs.Fields("id")
rs.MoveNext
Next

End Sub

Private Sub List1_Click()
Dim strsql As String
strsql = "select memo from mz where id=" & List1.ItemData(List1.ListIndex)
Set rs = New ADODB.Recordset
rs.Open strsql, conn, 1, 3
Text1.Text = rs.Fields("memo")
End Sub

• 打赏
• 举报

回复 赞

[online]

1.熟练掌握sql,可以达到事半功倍的效果
2.熟练使用ado对象,方便
3.使用存储过程或者触发器

存储过程例子
放datagrid和5个textbox

Option Explicit
Private mConn As Connection

Private Sub Command1_Click()
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim param As ADODB.Parameter

Set cmd = New ADODB.Command
cmd.ActiveConnection = mConn
cmd.CommandText = "insert_users"
cmd.CommandType = adCmdStoredProc

Set param = cmd.CreateParameter("truename", adChar, adParamInput, 20, Trim(txttruename.Text))
cmd.Parameters.Append param

Set param = cmd.CreateParameter("regname", adChar, adParamInput, 20, Trim(txtregname.Text))
cmd.Parameters.Append param

Set param = cmd.CreateParameter("pwd", adChar, adParamInput, 20, Trim(txtpwd.Text))
cmd.Parameters.Append param

Set param = cmd.CreateParameter("sex", adChar, adParamInput, 20, Trim(txtsex.Text))
cmd.Parameters.Append param

Set param = cmd.CreateParameter("email", adChar, adParamInput, 20, Trim(txtemail.Text))
cmd.Parameters.Append param

Set rs = cmd.Execute

Command2_Click

End Sub

Private Sub Command2_Click()
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim param As ADODB.Parameter

Set rs = New ADODB.Recordset
Set cmd = New ADODB.Command
cmd.ActiveConnection = mConn
cmd.CommandText = "select_users"
cmd.CommandType = adCmdStoredProc

mConn.CursorLocation = adUseClient '设置为客户端

Set rs = cmd.Execute()

MsgBox rs.RecordCount
Set DataGrid1.DataSource = rs
DataGrid1.Refresh

End Sub

Private Sub Form_Load()
'open the connection
Set mConn = New Connection

mConn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=TestUser;Data Source=yang"
mConn.Open
Dim rs As New ADODB.Recordset
'Set rs = New ADODB.Recordset
rs.Open "users", mConn, adOpenStatic, adLockPessimistic

MsgBox rs.RecordCount

End Sub



Private Sub Form_Unload(Cancel As Integer)

mConn.Close
Set mConn = Nothing
End Sub


以下是存储过程.写在sqlserver中

存储过程
CREATE PROCEDURE insert_users @truename char(20), @regname char(20),@pwd char(20),@sex char(20),@email char(20)
AS
insert into users(truename,regname,pwd,sex,email) values(@truename,@regname,@pwd,@sex,@email)
GO

CREATE PROCEDURE select_users
AS
select * from users
GO

• 打赏
• 举报

回复 赞

[qyii]

还有吗???呵呵~~好像贪心了点...

• 打赏
• 举报

回复 赞

[lizifang]

有钱人！
：-）

• 打赏
• 举报

回复 赞

[dongge2000]

无语…………

• 打赏
• 举报

回复 赞

[qyii]

嘿嘿!!来来大家一齐贴贴...

• 打赏
• 举报

回复 赞

[43720938]

顶下先！

• 打赏
• 举报

回复 赞

[CTSJT210]

顶下

• 打赏
• 举报

回复 赞

[qyii]

UP上去,让大侠多多支持支持

• 打赏
• 举报

回复 赞

[daisy8675]

如何使数据库和密码成为动态的？？

这样在每台机子上都能运行/
/////
強悍...密碼都動態了，偶還有什麼講的呢？

• 打赏
• 举报

回复 赞

[chenyu5188]

可以用多种方式来实现。常用的有ADO控件或ADO对象。

楼上的各位已有详细的操作代码了。
只是在使用ADO对象时要记的引用ADO对象的驱动引擎。

方法：你首先要在VB菜单中：
“工程”－－＞“引用”－－＞“Microsoft AxtiveX Data Objects 2.X Library”
注：2.X为版本号，如果你机子上有高版本的就用高版本的，如：2.5或2.6的。


给你推荐几个好文：
http://search.csdn.net/expert/topic/51/5105/2003/4/30/1726332.xml
http://search.csdn.net/expert/topic/51/5105/2003/4/29/1719681.xml
http://search.csdn.net/expert/topic/51/5105/2003/4/29/1720128.xml

• 打赏
• 举报

回复 赞

[geniushdg]

在窗口中要添加“ADO”控件吗？

• 打赏
• 举报

回复 赞

[geniushdg]

如何使数据库和密码成为动态的？？

这样在每台机子上都能运行/

• 打赏
• 举报

回复 赞

[qyii]

晕~回档回得我贴没结???

• 打赏
• 举报

回复 赞

[helanshan]

up

• 打赏
• 举报

回复 赞

[RUKYO]

晕~回档回得我贴没结???
========
同情

• 打赏
• 举报

回复 赞

[RUKYO]

发信息给总斑竹问一下应怎样处理吧

• 打赏
• 举报

回复 赞

[haohaohappy]

我就不多说了，大家都已经说的很清楚了，揭帖吧。呵呵

• 打赏
• 举报

回复 赞

[cwm545]

楼主有钱人啊!
一贴就是两百。。
顶下先。。

• 打赏
• 举报

回复 赞

[ljhdi]

UP一下

• 打赏
• 举报

回复 赞