今天起开始学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      是

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

希望有完整的例子!谢谢~~
...全文
198 29 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
29 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
加载更多回复(9)

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧