方法是有很多中的, 就你的只用ADO也是可以实现的
解决方案 »
- 用VS2005 编写VB AxMSFlexGrid1.DataSource = rs错了??
- 靠,又上榜了,散尽家产!
- 如果将用SAVEPICTURE保存的BMP位图文件从24位压缩到16位并且不失真,急啊!
- 谁有VB做的寻呼Pocsag解码程序,500分相送不胜感激
- 如何获取局域网中某台机器的快照??
- 关于鼠标的问题请教于大家。
- 逼近算法,足彩编程
- 关于鼠标问题
- WINSOCK控制问题
- 编译错误:只有定义在公共对象模块中用户定义类型能和变体类型相互转换或传递给后期绑定功能
- ?如何用vb连接sql server数据库!???(急急急)(
- >>>>>>>>>>>>VB中如何将文件保存到数据库中去<<<<<<<<<<<<<
我想现在最佳的方案是SOAP与WEBSERVICE
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim fso, filesPrivate Sub Command1_Click()
CommonDialog1.ShowSave
If CommonDialog1.FileName <> Empty Then
Set fso = CreateObject("scripting.filesystemobject")
Set files = fso.createTextFile(CommonDialog1.FileName, True)
For i = 1 To List1.ListCount
files.writeline (List1.ItemData(i - 1))
Debug.Print List1.ItemData(i - 1)
Next i
End If
End SubPrivate Sub Command2_Click()
Unload Me
End SubPrivate Sub Form_Load()
Winsock1.Listen
Form1.Show
End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> 0 Then
Winsock1.Close
End If
Winsock1.Accept requestID
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datacome As String
Winsock1.GetData datacome
conn.Open "provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ppqq;Data Source=LANDOG"
rs.CursorLocation = adUseClient
rs.Open "select * from ppqq", conn
Dim no As String
no = CStr(rs.RecordCount + 10000)
Debug.Print rs.RecordCount
Debug.Print datacome
insertit = "insert into ppqq(no,name,pass,province,email) values('" + no + "','" + datacome + " )"
conn.Execute (insertit)
rs.Close
conn.Close
'conn.Execute ("delete from ppqq where no>10002")
Winsock1.SendData no
Debug.Print "senddata no ok"
End SubPrivate Sub Winsock1_SendComplete()
Winsock1.Close
Winsock1.Listen
End Subclient code
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
If pass.Text <> repass.Text Or nam.Text = "" Or pass.Text = "" Or province.Text = "" Or email.Text = "" Then
MsgBox "两次输入的密码不同,请重新输入"
pass.Text = ""
repass.Text = ""
Else
Winsock1.Connect
Command1.Enabled = False
Debug.Print Winsock1.State
End If
End SubPrivate Sub Command2_Click()
Unload Me
End SubPrivate Sub Form_Load()
Winsock1.Close
End SubPrivate Sub Winsock1_Connect()
Debug.Print "accept"
Winsock1.SendData nam.Text + " ','" + pass.Text + " ' ,'" + province.Text + " ' ,'" + email.Text + " '"
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Debug.Print "acceptok"
Dim no As String
Winsock1.GetData no
Label3.Caption = "您的ppqq号码为" & no
End SubPrivate Sub Winsock1_SendComplete()
Label1.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
nam.Visible = False
pass.Visible = False
repass.Visible = False
province.Visible = False
email.Visible = False
Command2.Caption = "退出"
Label3.Caption = "等待服务器处理........."
Debug.Print Winsock1.State
End Sub你看看这个,是申请号吗的程序,用的是winsock tcp方式,希望对你有所帮助!