UC知道为什么我的程序不能写入数据库？？
来源：百度知道 编辑：UC知道 时间：2024/06/14 13:11:06
我用的是VB6，SQL2000。
大致代码如下：
public myconn1 as new adodb.connection
public myrecord1 as new adodb.recordset '在模块中定义的两个全局量
Dim m As Integer
'将表中的数据存入数据库
myrecord1.MoveFirst
Do While Not myrecord1.EOF
Dim fh As Integer 'fh是数据库中是否已有了将要写入的记录的标记变量，当其=1时，则表示有相同的记录，当其=0时，则表示没有相同的记录。
If (LCase(myrecord1.Fields(1).Value) = LCase(Form3.Text1.Text)) Then
fh = fh + 1
Else
fh = 0
End If
myrecord1.MoveNext
Loop
If fh <> 0 Then
m1 = "此设备档案已存在，请返回！"
m2 = "错误信息！"
h = MsgBox(m1, 48, m2)
If h = 1 Then
大致代码如下：
public myconn1 as new adodb.connection
public myrecord1 as new adodb.recordset '在模块中定义的两个全局量
Dim m As Integer
'将表中的数据存入数据库
myrecord1.MoveFirst
Do While Not myrecord1.EOF
Dim fh As Integer 'fh是数据库中是否已有了将要写入的记录的标记变量，当其=1时，则表示有相同的记录，当其=0时，则表示没有相同的记录。
If (LCase(myrecord1.Fields(1).Value) = LCase(Form3.Text1.Text)) Then
fh = fh + 1
Else
fh = 0
End If
myrecord1.MoveNext
Loop
If fh <> 0 Then
m1 = "此设备档案已存在，请返回！"
m2 = "错误信息！"
h = MsgBox(m1, 48, m2)
If h = 1 Then
给你个例子，请看看吧！
－－－－－－－－－－－－－－－－－－－
'2。添加一条入库数据
StrSql = ""
Set Rs2 = New ADODB.Recordset
DT1 = Format(Trim(D1.Value), "yyyy-mm-dd")
StrSql = "select * from BG_L_IOMX " 'where 品种='" & MY_name1 & "'"
Rs2.Open StrSql, mConn, adOpenDynamic, adLockOptimistic 'adOpenKeyset, adLockBatchOptimistic
Rs2.AddNew
Rs2.Fields("ID") = MY_NO '进货商编号
Rs2.Fields("部门") = MY_BM '进货部门
Rs2.Fields("领用人") = my_xm '联系人
Rs2.Fields("单号") = Txt_CKH.Text
MY_DNO = Txt_CKH.Text
Rs2.Fields("编号") = Text3.Text
Rs2.Fields("类别") = MY_LB '类别
Rs2.Fields("品种") = Text4.Text '品种
Rs2.Fields("单位") = Text5.Text '单位
Rs2.Fields("拼音首字") = MY_Pyzs
R