如何用vba代码将access数据库连接求代码?

Posted 2023-05-10

参考技术A

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点，是 Microsoft Office 的系统程序之一。用vba代码将access数据库连接求代码，代码如下：

Sub FYMXDL()

Dim XQID As Integer

Dim JZID As Integer

Dim FYID As Integer

Dim FBXZ As String '分包性质

Dim DW As String

Dim SARR(1 To 31) As Double

Dim rst As New ADODB.Recordset

mYpath = ThisWorkbook.Path & "\\jzfydata.accdb"

Set cONn = CreateObject("ADODB.Connection")

cONn.ConnectionString = "Provider=Microsoft.Ace.OleDB.12.0;Data Source=" & mYpath

cONn.ConnectionString = cONn.ConnectionString & ";Jet OLEDB:Database "

cONn.Open

XQID = Cells(3, 2).Value

JZID = Cells(3, 5).Value

'清空改小区-建筑的费用明细

Sql = "delete  from fymxb where 小区ID=" & XQID & " AND 建筑ID = " & JZID

cONn.Execute Sql

Const kshh = 7

hh = kshh

Do While Cells(hh, 3).Value > 0

FYID = Cells(hh, 3).Value

FBXZ = Cells(hh, 11).Text

For i = 1 To 31

SARR(i) = Round(Cells(hh, 13 + i - 1).Value, 2)

Next i

Sql = Sql & "," & SARR(i)

Next i

Sql = Sql & " )"

cONn.Execute Sql

hh = hh + 1

Loop

End Sub

如何用VC++ 连接 Mysql数据库

如何用VC++ 连接 Mysql数据库
如何用VC++ 获取 Mysql数据库
如何用VC++ 获取 Mysql数据库 中内容
如何用VC++ 操作 Mysql数据库
请给点代码 或者 例子 谢谢了 老师 高手 大婶 大叔 们

#include <mysql.h>

main()

　　MYSQL *conn;
　　MYSQL_RES *res;
　　MYSQL_ROW row;
　　char *server = "localhost";
　　char *user = "root";
　　char *password = ""; /* 此处改成你的密码 */
　　char *database = "mysql";
　　conn = mysql_init(NULL);

　　/* Connect to database */
　　if (!mysql_real_connect(conn, server, user, password, database, 0, NULL, 0))

　　 fprintf(stderr, "%sn", mysql_error(conn));
　　 exit(1);
　　

　　/* send SQL query */
　　if (mysql_query(conn, "show tables"))

　　 fprintf(stderr, "%sn", mysql_error(conn));
　　 exit(1);
　　
　　res = mysql_use_result(conn);

　　/* output table name */
　　printf("MySQL Tables in mysql database:n");

　　while ((row = mysql_fetch_row(res)) != NULL)
　
printf("%s n", row[0]);


　　/* close connection */
　　mysql_free_result(res);
　　mysql_close(conn);
参考技术A m_DBCnt.CreateInstance(__uuidof(Connection));
m_DBCnt->ConnectionString ="driver=;server=servername;UID=user;PWD=userpwd;database=db";
m_DBCnt->Open("","","",-1);
参考技术B guygighi