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

2004-04-30 08:33:29 234 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

struct 结构体的定义及初始化问题 /*****************************/ //以上说明，结构体也没啥特殊的，跟普通的数据类型定义变量是一样的。。。 //程序在定义变量的时候，已经分配好了内存空间，只是里面存储的数据是随机的，是垃圾值。 //对于非指针变量来说，，照样可以输出或者操作，仅仅是可能会得到不正确的结果，程序是可以正常运行的。 //对于指针变量来说，同样。但是其内存空间存储的值是被当做另外一个地址看待的，，所以不初始化成有效的地址值得话， //程序可能会崩溃或者遇到不可预料的结果。 //注：memset 阅读详情

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

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

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

...全文

C语言结构体声明以及结构体指针陷阱一、“.”和“->”区别：当声明一个结构体时，因为自动分配了结构体的内存空间，所以可以直接用“.”访问相应结构体内的存储单元，比如： typedef struct Node{ int value; }node; node o; o.value=2; 但如果声明的是一个结构体指针，则需要手动开辟一个结构体内存后，将这个指针指向该内存块后，再使用“->”进行内部变量访问... 阅读详情

qyii

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

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

打赏
举报

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）

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

相关推荐