VB²Ù×÷MySQLµÄÎÊÌâ

ÎÒÓÃVB¼ÆËãÁËÒ»¸öÄ£Ð͵ijߴ磬ÔõôÄܽ«ÕâЩ±äÁ¿Öµ´æÈëµ½MySQLÖÐÏàÓ¦µÄ±íÀïÄØ£¿Ð»Ð»°ï棡

---

vbÈçºÎÁ¬½Ómysql£¿

---

¿ÉÒÔÓÃÕâ¸öÀý×ÓÖеķ½·¨£º
http://download.csdn.net/source/325189

---

ÏÂÔØ°²×°MySQL ODBC 3.51 Driver£¬½¨Á¢Á¬½Ó¾ÍÐÐÁË

ÒýÓÃ

vbÈçºÎÁ¬½Ómysql£¿

---

ÄãºÃ£¬ÎÒ²»ÊÇÔÚÎı¾¿òÖÐÊäÈëµÄÖµ£¬¶øÊDZäÁ¿µÄÖµ£¬±ÈÈçÏÂÃæÕâÒ»¶Î
Dim I As Integer
Dim H As Integer
Dim D As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer

a = 1
b = 2
c = 3
I = a + b
H = a + c
D = b + c

sql = "INSERT INTO `example`.`cylindar` (`I` ,`H` ,`D`)VALUES (I,H,D) "
rs.Open sql, cn

ÕâÑùµÄ»°Ã¿´ÎÔÚ±íÖвåÈëµÄ¼Ç¼¶¼ÊÇ¿ÕÖµ£¬µ«ÊÇÈ´Õ¼×ÅÒ»Ìõ¼Ç¼µÄλÖã¬Ôõô»ØÊ°¡£¿Ð»Ð»°ïæÁË£¡

ÒýÓÃ

strSQL="insert into ±í1(³¤,¿í,¸ß,ÐÎ×´) values(" & text1.text & "," & text2.text & "," & text3.text & ",'" & text4.text & "')"
ÊýÖµÐͲ»Óõ¥ÒýºÅ,×Ö·ûÐͼÓ

---

ÒýÓÃ

Ò»Ñù°¡
strSQL="insert into ±í1(×Ö¶Î1,×Ö¶Î2,×Ö¶Î3) values(" & I & "," & H & "," & D & ")"

---

VB code

---

Code highlighting produced by Actipro C