UC知道VB/SQL SERVER编程，的修改记录的问题，高手进。
来源：百度知道 编辑：UC知道 时间：2024/09/27 10:25:22
If photoFilename <> "" Then mst.LoadFromFile photoFilename
rs1.Fields("照片") = mst.Read
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
rs1.Update
main_rsgl_rsdaxx.Adodc1.Refresh
rs1.Close
mst.Close
End If
Unload Me
End Sub
Fromload:
If blnAddRS = True Then
Me.Caption = "人事信息添加"
rs1.Open "select * from 人事表 order by 编号", Cnn, adOpenKeyset, adLockOptimistic
DTP5 = Date
Txt1(11) = "三中队"
Txt1(12) = "非资深员工"
DataCombo4.text = "合同工"
DataCombo1.text = "汉族"
If rs1.RecordCount > 0 Then
rs1.MoveLast
' Txt1(0) = Format(Val(rs1.Fields("编号")) + 1, "00000")
Else
Txt1(0) = "00001"
End If
rs1.Close
Txt1(16) = czy
Else
Me.Caption = &qu
rs1.Fields("照片") = mst.Read
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
rs1.Update
main_rsgl_rsdaxx.Adodc1.Refresh
rs1.Close
mst.Close
End If
Unload Me
End Sub
Fromload:
If blnAddRS = True Then
Me.Caption = "人事信息添加"
rs1.Open "select * from 人事表 order by 编号", Cnn, adOpenKeyset, adLockOptimistic
DTP5 = Date
Txt1(11) = "三中队"
Txt1(12) = "非资深员工"
DataCombo4.text = "合同工"
DataCombo1.text = "汉族"
If rs1.RecordCount > 0 Then
rs1.MoveLast
' Txt1(0) = Format(Val(rs1.Fields("编号")) + 1, "00000")
Else
Txt1(0) = "00001"
End If
rs1.Close
Txt1(16) = czy
Else
Me.Caption = &qu
这到底是什么意思
VB编写的SQL Server数据库应用实际上是C/S(客户端/服务器)结构，分成两部分运行的，VB写的（也就是你写的程序）只是客户端，在运行时通过OLEDB、ODBC等连接到SQL Server数据库，对数据库的操作则由作为服务器端的SQL Server完成。所以你到别的机上运行只要保证正确建立C/S运行环境就可以了
对于VB程序，你可以用VS环境的打包程序生成安装包，只要你的工程中引用了数据库库，一般会为你安装数据库客户端驱动的
对于SQL Server，你应该独立安装。
C/S结构客户端和服务器一般不在同一台机器上，自己编写的小型应用有时可能客户端和服务器在同一计算机上，而且有时SQL Server并不是真正安装在服务器版的系统中，而是用MSDE(Desktop Engine)，这也是可以的