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