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

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

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

希望有完整的例子!谢谢~~
...全文
157 29 点赞 打赏 收藏 举报
写回复
29 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
ljhdi 2004-09-04
UP一下
  • 打赏
  • 举报
回复
cwm545 2004-09-04
楼主有钱人啊!
一贴就是两百。。
顶下先。。
  • 打赏
  • 举报
回复
haohaohappy 2004-09-04
我就不多说了,大家都已经说的很清楚了,揭帖吧。呵呵
  • 打赏
  • 举报
回复
RUKYO 2004-09-04
发信息给总斑竹问一下应怎样处理吧
  • 打赏
  • 举报
回复
RUKYO 2004-09-04
晕~回档回得我贴没结???
========
同情
  • 打赏
  • 举报
回复
helanshan 2004-09-04
up
  • 打赏
  • 举报
回复
qyii 2004-09-04
晕~回档回得我贴没结???
  • 打赏
  • 举报
回复
geniushdg 2004-05-03
如何使数据库和密码成为动态的??

这样在每台机子上都能运行/
  • 打赏
  • 举报
回复
geniushdg 2004-05-03
在窗口中要添加“ADO”控件吗?

  • 打赏
  • 举报
回复
chenyu5188 2004-05-03
可以用多种方式来实现。常用的有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
  • 打赏
  • 举报
回复
daisy8675 2004-05-03
如何使数据库和密码成为动态的??

这样在每台机子上都能运行/
/////
強悍...密碼都動態了,偶還有什麼講的呢?
  • 打赏
  • 举报
回复
qyii 2004-05-03
UP上去,让大侠多多支持支持
  • 打赏
  • 举报
回复
CTSJT210 2004-05-02
顶下
  • 打赏
  • 举报
回复
43720938 2004-05-02
顶下先!
  • 打赏
  • 举报
回复
qyii 2004-05-02
嘿嘿!!来来大家一齐贴贴...
  • 打赏
  • 举报
回复
dongge2000 2004-05-02
无语…………









































































  • 打赏
  • 举报
回复
lizifang 2004-05-01
有钱人!
:-)
  • 打赏
  • 举报
回复
qyii 2004-05-01
还有吗???呵呵~~好像贪心了点...
  • 打赏
  • 举报
回复
online 2004-04-30
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
  • 打赏
  • 举报
回复
online 2004-04-30
数据字段填充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
  • 打赏
  • 举报
回复
加载更多回复
相关推荐
发帖
数据库(包含打印,安装,报表)
加入

1191

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-04-30 08:33
社区公告
暂无公告