Sub 创建()
Set conn = CreateObject("adodb.connection")
conn.Open "driver=sql server;server=pz01;database=IQCSIP;uid=iqc;pwd=Iqcsip2020"
If conn.State = 1 Then
Dim str_n As String
str_n = "select MAX(报告号) from BLBG where 日期 = '" & ActiveSheet.Cells(15, 2) & " '"
ActiveSheet.Cells(15, 3).CopyFromRecordset conn.Execute(str_n)
End If
conn.Close
Set conn = Nothing
End Sub
想要取一个当天的数据库中最大的报告号 日期是从EXCEL中取得 求出的值放在日期下面 求个高手帮我看看哪里有问题