VBA 连线database If Linkdata.conn.State = 1 Then strSQL_find = "select Gultech_P_NO from mat_list where Gultech_P_NO = '" & Gultech_P_NO & "'" With rs .Open strSQL_find, conn End With If rs.EOF = True Then '返回结果为True时，数据库里没有这个料号 If Mid(Gultech_P_NO, 1, 1) = "W" Then '仅保存料号第一码为W的资料 strSQL_insert = "insert into mat_list value" & par_str Set rs = New ADODB.Recordset With rs .Open strSQL_insert, conn End With End If ElseIf rs.EOF = False Then '返回结果为FALSE时，数据库里有这个料号 strSQL_update = "update mat_list set Panel_Size_S = " & Val(Panel_Size_S) _ & " ,Panel_Size_L = " & Val(Panel_Size_L) _ & "' WHERE Gultech_P_NO = '" & Gultech_P_NO & "'" Sheets("SHEET1").Range("A1").Value = strSQL_update Set rs = New ADODB.Recordset With rs .Open strSQL_update, conn End With End If