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
Ïà¹ØÎÊ´ð£º
ÇëÎÊÏÂÄܲ»ÄÜÔÙwindows϶¨ÆÚÇå¿ÕmysqlÒ»¸ö±íÖеÄÈ«²¿Êý¾Ý£¬ÓÃPHPʵÏÖ£¡ лл¸÷λÁË ¾Í±ÈÈçÒ»¸öÐÇÆÚÇå¿ÕÒ»´Î ±ÈÈçÿ¸öÐÇÆÚÁùÁãµãÇå¿ÕÒ»´Î£¡ ллÁË ¼Æ»®ÈÎÎñ...php....sql...truncate....OK Äã¾ÍÕâ½ÓÔÚҳà ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË ´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ ´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£ »Ø¸´ ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»Áß´Í½Ì 1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£ Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯ Picture1.Left = -HScroll1.Value + bcW ' ......
¸÷λ´óϺ£º ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......