我用一个mscomm控件读取com1的数据然后加到数据库请问我这里出了什么问题了！！分可以多给！！希望高手指导！有原文件

Question

http://202.101.187.11:82/star/gps.rar
这里是原代码的下载地址  谁能帮助看看  看我那里写错了

Answer 1

不好意思 其实这样的我贴错了 是下面这个地址
http://202.101.187.11:82/star/2004928gps.rar
当我执行这个程序的时候 报错
Private Sub chkOpenServer_Click()
   'Form1.Show
  Public Rs As New ADODB.Recordset
Public Conn As New ADODB.Connection
Set Conn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Conn.ConnectionString = "Driver={sql server};server=192.168.91.74;uid=sa;pwd=;database=GPS"
Conn.ConnectionTimeout = 100
Conn.Open
Rs.Open "select * from gps", Conn, adOpenStatic, adLockReadOnly, adCmdTextIf Rs.EOF = True And Rs.BOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Dim ts As String
Dim myNum As Long
ts = "ssegsgfsdfsdf"
myNum = 1
Do While myNum < 5
Conn.Execute "INSERT INTO gps(cdma,times)VALUES ('" & ts & "','" & Now() & "')"
  myNum = myNum + 1
  Loop
      ' vMessageBox GetLStr(3), 1, 0
     '  ClearData
     '  data_a.SetFocus
'
'rs.AddNew
'rs("cdma") = 1
'rs("times") = Now()
'rs.Update
'rs.Close
'conn.execute("INSERT INTO gps(cdma,times)VALUES (1,2)'m = MsgBox("成功连接", vbExclamationa)
'Form1.Hide
End If
Rs.Close
  udpServer.LocalPort = 1388
  udpServer.RemotePort = 1389
  udpServer.Bind
  chkOpenServer.Caption = "服务器启动"
  chkOpenServer.Enabled = False
  sbrShowState.Panels(1).Text = "服务器已启动，等待客户端连入！"
  
End Sub

Answer 2

我执行以后说：子程序和函数的属性无效
下面的这个无效
Private Sub chkOpenServer_Click()

Answer 3

Public Rs As New ADODB.Recordset
Public Conn As New ADODB.Connection
这是全局变量,在模块中定义吧,不能在过程中定义

Answer 4

这样也可以啊
Option Explicit
Private strClientcnt As String
Private strRvData As String
Public Rs As New ADODB.Recordset
Public Conn As New ADODB.ConnectionPrivate Sub cbInterval_Click()
  
 On Error Resume Next
 If chkOpenServer.Value = 1 Then udpServer.SendData "INTERVAL" & Left(cbInterval.Text, Len(cbInterval.Text) - Len("秒"))
  
End SubPrivate Sub chkOpenServer_Click()
   'Form1.Show
  
Set Conn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Conn.ConnectionString = "Driver={sql server};server=192.168.91.74;uid=sa;pwd=;database=GPS"
Conn.ConnectionTimeout = 100
Conn.Open
Rs.Open "select * from gps", Conn, adOpenStatic, adLockReadOnly, adCmdTextIf Rs.EOF = True And Rs.BOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else