vb+accessÌí¼ÓÊý¾Ý
ÒÔÏ´úÂ룺
Private Sub Form_Load()
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\¹¤×÷\SQL\fetion.mdb;Persist Security Info=False"
conn.Open connStr
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
End Sub
Private Sub Command1_Click()
rs.Open "Profile", conn, adOpenKeyset, adLockPessimistic
rs.Fields("user_number") = Text1.Text
rs.Fields("user_name") = Text2.Text
rs.Fields("number") = Text3.Text
rs.Fields("user_tel") = Text4.Text
rs.Fields("user_phone") = Text5.Text
rs.Fields("user_address") = Text6.Text
rs.Fields("start_time") = Text7.Text
rs.Fields("end_time") = Text8.Text
rs.Fields("money") = Text9.Text
rs.Fields("contents") = Text10.Text
rs.Update
MsgBox ("¼Èë³É¹¦")
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Ïà¹ØÎÊ´ð£º
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
ÎÊÌ⣱
ÎÒÓÃADOÁ¬½ÓÉèÁËÓû§ÃûÃÜÂëµÄÊý¾Ý¿â
µ«ÊÇÎÒ·¢ÏÖÎÒ²»ÊäÈë Óû§ÃûºÍÃÜÂë ¶¼¿ÉÒÔÁ¬½Ó³É¹¦ ¶øÇÒ»¹ÄܰÑÊý¾Ý¶Á³öÀ´
¼ôÁËÒ»¸öÃûΪtestÊý¾Ý¿â ½¨ÁËÒ»¸öÃûΪpeopleµÄ±í
¼ûÁËÒ»¸ö Óû§Ãû1234 ÃÜÂë1234 µÄ ......
ÎÊÌâÊÇÕâÑùµÄ,ÏÖÔÚÓÐÒ»¸ö¹¤×ʱí,ÊÇEXCELµÄ,ÎÒÒª°ÑËüµ¼ÈëACCESS,ÒòΪ Òª²éѯÿ¸öÈ˵Ť×Ê,¸ù¾Ý²»Í¬µÄ±àºÅ¿ÉÒÔ²éѯµ½Ïà¶ÔµÄÈË,
ÓÃASP Ôõô½«EXCELµ¼Èëµ½ACCESS,¶øÇÒÿÔ¶¼Óв»Í¬µÄ±í,
ÒýÓÃ
Æäʵ¾ÍÊǰÑEXCELµ±³ÉÊý ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......
ÔÚÍøÉÏÏÂÔØÁËspeechsdk51LangPack°²×°ºó£¬ÓÃvb¿ÉÒÔ·¢Òô£¨ÖÐÎÄ£©£¬ÀïÃæÓиögirl xiaokunµÄ·¢Òô£¬¶ÔÖÐÎĺܺÃÌý¡£µ«ÊÇÕâ¸öspeechsdk51LangPackÓÐ100¶àM£¬ÎÒµÄvbÏîÄ¿´ò°üºó£¬Ôõô²Å¿ÉÒÔ×°µ½ÆäËû»ú×ÓÉÏÒ²ÄÜÓã¿£¿×ܲ»ÄÜÿ ......