Dim conn As New Connection Dim rs As New Recordset strcon = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=E:\Student.accdb;" & _ "User Id=admin;Password=" conn.Open (strcon) qry = "select Max(alanadı ) As Maxdeger From SomeTable;" rs.Open qry, conn, adOpenKeyset
rs.MoveFirst
Range("a1")=rs.fields(0)
rs.Close conn.Close
Excel Access
Bu Konudaki Yorumlar |
Excel Access - Yazar: zaferlacin - 04/11/2019, 23:53
Cvp: Excel Access - Yazar: berduş - 05/11/2019, 00:12
Cvp: Excel Access - Yazar: zaferlacin - 05/11/2019, 00:42
Cvp: Excel Access - Yazar: berduş - 05/11/2019, 00:54
Cvp: Excel Access - Yazar: zaferlacin - 15/11/2019, 21:50
Cvp: Excel Access - Yazar: zaferlacin - 15/11/2019, 21:58
|
Konuyu Okuyanlar: 1 Ziyaretçi