|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
接触MYSQL,开始设计数据库程序mysql|server|数据 想必人人都很喜好用Word打字,用Excel停止盘算和计划,用PowerPoint作幻灯片停止展现…,然而这只用到了Office系列产物的很少的一局部功效。据查询拜访,绝大局部用户只用到了Office产物的20%的功效,很少有人注重到Visual Basic for Application。实践上,熟习把握VBA的功效可使你的任务事半功倍,特别对管帐、金融等专业来讲,作出一套好的宏,几近可以作到与日俱增!比来,AutoCAD中也到场了VBA的功效,这不克不及不说这是一个趋向!
VBA的功效决不只是让病毒制作者用来制作费事的,VBA能被用来制作病毒的同时也正申明了其功效的壮大与易用!使用ADO对象,可以很便利的停止数据库操作!上面就是一个复杂的数据互换的例子:
因为ADO对象不直接撑持MySQL,所以必需先装置MyODBC, 后者也是一个收费产物,在www.mysql.org上有下载,装置好了MyODBC, 就能够在ODBC数据源办理中设置装备摆设一个数据源称号,把它指向你想毗连的MySQL数据库。代码以下:
Sub connectMySQL()
'经由过程MyODBC去毗连MySQL数据库,并将Microsoft SQL Server 7
'的数据转进mysql中
Dim sConnect As String, sSql As String, i As Long
Dim cnMSSQL As New ADODB.Connection
Dim cnMySQL As New ADODB.Connection
'声明并创立对象 毗连
Dim rs As New ADODB.Recordset '声明并创立对象 纪录集
Dim cm As New ADODB.Command '声明并创立对象 号令
sConnect = "dsn=mysql1" '指定MySQL的数据源称号
cnMySQL.Open sConnect '毗连到 mysql
sConnect="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=123456;Initial Catalog=softdown;Data Source=ntserver"
'毗连到 ms sql server 7
cnMSSQL.Open sConnect
'sSql = "create table softinfo (softNum smallint,softname varchar(70),softdesc blob," & _
"softpath varchar(30),softleng varchar(10),softclass varchar(10),softsugest tinyint(1)," & _
"softdown smallint(4))" '创立新的MySQL数据表语句
sSql = "select * from softinfo order by softnum"
rs.Open sSql, cnMSSQL, 1, 1
While Not rs.EOF
sSql = "insert into softinfo values (" & Trim(rs(0).Value) & ",'" & Trim(rs(1).Value) & _
"','" & Trim(rs(2).Value) & "','" & Trim(rs(3).Value) & "','" & Trim(rs(4).Value) & _
"','" & Trim(rs(5).Value) & "'," & Trim(rs(6).Value) & "," & Trim(rs(7).Value) & ")"
cm.ActiveConnection = cnMySQL
cm.CommandType = adCmdText
cm.CommandText = sSql
cm.Execute
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
cnMySQL.Close
Set cnMySQL = Nothing
cnMSSQL.Close
Set cnMSSQL = Nothing
End Sub
好了,想必人人对VBA有所懂得了,一样,假如要在任务表中援用MySQL中的数据也是一样的复杂,一旦宏作好了,想生成报表的话,用户要作的任务只是点一下鼠标就好了,使用Excel停止二次开辟,效力可以超越任何用户自行开辟的报表体系,由于咱们站在Microsoft这个伟人的肩膀上!
转载 奥索
PHP的理解是新手最难迈过的一道门槛,不过你应该感到幸运的是PHP已经最大极限的为了新手而努力了,如果你学过其他的语言,也许会觉得PHP的确相当的简单,但是如果你之前什么都没学过,那么阿弥陀佛,硬着头皮琢磨吧。 |
|