VB/SQL SERVER编程,的修改记录的问题,高手进。
IfphotoFilename<>""Thenmst.LoadFromFilephotoFilenamers1.Fields("照片")=mst.Read。。。。。。。。...
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 = "人事信息修改"
With main_rsgl_rsdaxx.Adodc1.Recordset
If .RecordCount > 0 Then
Txt1(0) = .Fields("编号")
。。。。。。。。。。。。。。。。。。。。。。。
Set PicPhoto.DataSource = main_rsgl_rsdaxx.Adodc1
PicPhoto.DataField = "照片"
If .Fields("照片") Is Nothing Then
PicPhoto.Picture = LoadPicture()
End If
。。。。。。。。。。。。。。。。。。。。。。。。。。
End If
End With
End If
End Sub
数据可以录入,但是修改起来则有问题:
修改保存后,会产生两条记录,即原记录还在,修改后的记录也有
但是如果删除其中一个记录,就会显示,“。。。。不正确,可能会影响到多列” 展开
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 = "人事信息修改"
With main_rsgl_rsdaxx.Adodc1.Recordset
If .RecordCount > 0 Then
Txt1(0) = .Fields("编号")
。。。。。。。。。。。。。。。。。。。。。。。
Set PicPhoto.DataSource = main_rsgl_rsdaxx.Adodc1
PicPhoto.DataField = "照片"
If .Fields("照片") Is Nothing Then
PicPhoto.Picture = LoadPicture()
End If
。。。。。。。。。。。。。。。。。。。。。。。。。。
End If
End With
End If
End Sub
数据可以录入,但是修改起来则有问题:
修改保存后,会产生两条记录,即原记录还在,修改后的记录也有
但是如果删除其中一个记录,就会显示,“。。。。不正确,可能会影响到多列” 展开
展开全部
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),这也是可以的
对于VB程序,你可以用VS环境的打包程序生成安装包,只要你的工程中引用了数据库库,一般会为你安装数据库客户端驱动的
对于SQL Server,你应该独立安装。
C/S结构客户端和服务器一般不在同一台机器上,自己编写的小型应用有时可能客户端和服务器在同一计算机上,而且有时SQL Server并不是真正安装在服务器版的系统中,而是用MSDE(Desktop Engine),这也是可以的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询