¼±¡£¡£VB±àÒëʱ³ö´í£¡£¡
ÓÐÇë¸÷λ¸ßÊÖ°ïÎÒ¿´¿´¡£ÎªÊ²Ã´¡ÔÚÌí¼ÓеÄÐÅÏ¢°´¡°±£´æ¡±°´Å¥Ê±³öÏÖ¡°from×ÓÓï¾ä´íÎ󡱺͡°ÊµÊ±´íÎó-2147217900£¨800400e14£©¶ÔÏóRefreshµÄ·½·¨IAdodcʧ°Ü¡±ºÍÉÏÃæÌáʾ £¬²¢ÇÒÐòºÅÒ»ÁÐÎÞ·¨Éú³ÉÁ¬¹áÐòºÅºìȦ´¦£¬ÎªÊ²Ã´¡£¡£¡£¡£ ºÁÎÞÍ·Ð÷£¬Íûǰ±²ÃDz»ØÄ´Í½Ì˵˵ÔÒò¡£¡£ÏÈллÀ²£¡£¡£¡£¡£¡
²¿·Ö´úÂëÈçÏ£º
Private Sub cmdAdd_Click()
isAdd = True
SaveCancelEnabled
AdodcReaderType.Recordset.AddNew
TextEnabledTrue
txtReaderTypeNo(0).SetFocus
End Sub
Private Sub cmdCancel_Click()
If AdodcReaderType.Recordset.RecordCount > 0 Then
AdodcReaderType.Recordset.CancelUpdata
End If
initialCmd
TextEnabledFalse
DataGridReaderType.Refresh
AdodcReaderType.Refresh
End Sub
Private Sub cmdClose_Click()
End
Unload Me
End Sub
Private Sub cmdDelete_Click()
If MsgBox("ÕæµÄҪɾ³ýÀà±ðÃû³ÆÎª£º¡¾" & Trim(txtReaderTypeName.Text) & "¡¿µÄÀà±ðÂ𣿠", vbYesNo, "ÌáʾÐÅÏ¢") = vbYes Then
AdodcReaderType.Recordset.Delete
AdodcReaderType.Recordset.MoveNext
If AdodcReaderType.Recordset.EOF Then
AdodcReaderType.Recordset.MovePrevious
If AdodcR
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
Êý¾Ý¿âÃ²ËÆÒѾÁ¬½ÓÉÏÁËvb£¬£¬¿ÉÊÇΪʲôÊý¾Ý¿âÉϵÄÊý¾Ý²»ÄÜÏÔʾÔÚ¿ò±íÖÐÄ󣿣¿£¿
¾ßÌåµÄ´úÂ룿
ÎÞÂëÎÞÕæÏ࣡
Äã°ÑÀºÇò±§ÔÚ»³À¾ÍÄÜԶͶµÃ3·Ö£¿
Âé·³¸÷λ´óϺÁ˰¡¡£¡£¡£
Private Sub Comm1_Click()
& ......
ÔÚÍøÉÏÏÂÔØÁËspeechsdk51LangPack°²×°ºó£¬ÓÃvb¿ÉÒÔ·¢Òô£¨ÖÐÎÄ£©£¬ÀïÃæÓиögirl xiaokunµÄ·¢Òô£¬¶ÔÖÐÎĺܺÃÌý¡£µ«ÊÇÕâ¸öspeechsdk51LangPackÓÐ100¶àM£¬ÎÒµÄvbÏîÄ¿´ò°üºó£¬Ôõô²Å¿ÉÒÔ×°µ½ÆäËû»ú×ÓÉÏÒ²ÄÜÓã¿£¿×ܲ»ÄÜÿ ......