1145
社区成员
1.8w+
社区内容
- 主页
求VB与SQLSERVER2000通过互连网访问问题。
也就是通常说的网络编程，但是小弟对于网络这块一知半解，公司要我做个软件，要求分公司通过可以通过网络操作数据，以免分公司私藏客户，因此，我在这里求一段示例代码或者相关资料、教材，最好是关于客户端访问服务器数据库中的客户资源并可以进行修改，添加，删除和查询操作，希望能简单点。
谢谢！
比较郁闷。我最多只能放100分，本来想一次放500分的，希望大家原谅。实在不够，我开新帖放分，只要能解决问题！
谢谢！
比较郁闷。我最多只能放100分，本来想一次放500分的，希望大家原谅。实在不够，我开新帖放分，只要能解决问题！
...全文
red163 2005年01月11日
我想 只要可以远程访问操作就可以了 那样来简单就那样，可是我就是不会网络。
hongonline 2004年12月29日
好像在C/S中，在你修改数据时，你应该在你更改原来的数据之前，检测是否原来的数据已被其它用户修改吧，然后提示是否覆盖人家新的数据
用不用？大虾们
用不用？大虾们
hongonline 2004年12月29日
TO red163(虎威)
你自动测试远程服务器的数据库是否可以连接，是用ADO测试还是用???
你自动测试远程服务器的数据库是否可以连接，是用ADO测试还是用???
JayJay 2004年12月28日
可以在本地放Access数据库，远程是SQL SERVER，本地数据库加密，改扩展名mdb为ini(当然不要告诉他们：这就是数据库)，当用户录完数据关闭程序时自动触发发送事件，一般的用户是不知道怎样去改数据的
axiang80 2004年12月28日
mark
red163 2004年12月28日
哎~~网络方面一团糟，不太懂。做这东西头大。。。。JayJay 说是建议建立个本地的数据库 改好后再传。但是这里 分公司就可以做手脚了。。我倒希望的是 ：打开客户端 自动测试远程服务器的数据库是否可以连接，然后就不需要直连，只是个测试而已，最后点提交后再写入远程数据库 写入成功则给提示！
freedomjim 2004年12月28日
用ADO访问(提供服务端的IP)
就简单的数据库增删改操作
跟本地数据库操作一样
只有你使用网络数据库就是,如:SQL Server等
就简单的数据库增删改操作
跟本地数据库操作一样
只有你使用网络数据库就是,如:SQL Server等
evisonrock 2004年12月27日
如果只是要连接到数据库不需要代码的。我刚做完这个东西！
GHOSTSEA 2004年12月27日
有道理,不能在程序始终都连接数据库,只有在需要提交数据交换信息时才连
zftow110 2004年12月27日
跟你一样，网络方面还是不行。。。。。。UP
lzbl 2004年12月27日
要求是:连接远程数据库,这个不是一直都连到,需要"发送数据"才连,不然就浪费资源,占用内存空间了,另外我要录入十条数据在本地,然后按时间查找出今天录入的数据,一起发到远程SQL服务器,不是一条条插入,这样效率就慢了.望能指教,不胜感激!QQ:81759147
cool_man 2004年12月27日
mark
JayJay 2004年12月27日
跟C/S结构的程序一样，连接数据库:
CONNECTSTR = "Provider=SQLOLEDB.1;user id=sa;password=1234;Initial Catalog=TEST;;Data Source=192.168.0.1,1433
将IP改为远程的IP就可以了。
只是一条一条地远程执行SQL语句很慢（看你网速），建议本地放一个数据库，打开程序时先将服务器上的数据写到本地数据库，添加，删除，修改以后再一起从本地将数据写到服务器数据库中。
CONNECTSTR = "Provider=SQLOLEDB.1;user id=sa;password=1234;Initial Catalog=TEST;;Data Source=192.168.0.1,1433
将IP改为远程的IP就可以了。
只是一条一条地远程执行SQL语句很慢（看你网速），建议本地放一个数据库，打开程序时先将服务器上的数据写到本地数据库，添加，删除，修改以后再一起从本地将数据写到服务器数据库中。
aohan 2004年12月26日
连接字符串要写对就可以了
yanexp 2004年12月26日
'Sql_Server 连接
Dim connstr
Dim conn
connstr = "Provider=SQLOLEDB;Data Source='192.168.0.222';DATABASE=muonline;UID=mu;pwd=991588"
'connstr = DBconnect.Provider = "SQLOLEDB.1"
'DBconnect.ConnectionString = "DATABASE='muonline';SERVER='192.168.0.222' ;UID='mu';PWD='991588';"
'打开
Set conn = CreateObject("adodb.connection")
'Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
'读取
Set rs = CreateObject("adodb.recordset")
sqlstr = "select memb___id from MEMB_STAT where ConnectStat=1"
rs.open sqlstr, conn, 1, 1
tatalrecord = rs.recordcount
msgbox tatalrecord
'修改
sql = "update MEMB_INFO set sno__numb=sno__numb-1 where memb___id ='" & Text1.Text & "' "
conn.execute sql
'删除
sql2="delete from Character where Name='"&id&"'"
conn.execute(sql2)
'添加
set rs2 = Server.CreateObject("ADODB.Recordset")
sql="INSERT INTO MEMB_INFO (memb___id,memb__pwd,memb_name,sno__numb) VALUES ('"&ps_loginname&"','"&ps_password&"','"&ps_nickname&"', '3')"
set rs2=conn.execute(sql)
Dim connstr
Dim conn
connstr = "Provider=SQLOLEDB;Data Source='192.168.0.222';DATABASE=muonline;UID=mu;pwd=991588"
'connstr = DBconnect.Provider = "SQLOLEDB.1"
'DBconnect.ConnectionString = "DATABASE='muonline';SERVER='192.168.0.222' ;UID='mu';PWD='991588';"
'打开
Set conn = CreateObject("adodb.connection")
'Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
'读取
Set rs = CreateObject("adodb.recordset")
sqlstr = "select memb___id from MEMB_STAT where ConnectStat=1"
rs.open sqlstr, conn, 1, 1
tatalrecord = rs.recordcount
msgbox tatalrecord
'修改
sql = "update MEMB_INFO set sno__numb=sno__numb-1 where memb___id ='" & Text1.Text & "' "
conn.execute sql
'删除
sql2="delete from Character where Name='"&id&"'"
conn.execute(sql2)
'添加
set rs2 = Server.CreateObject("ADODB.Recordset")
sql="INSERT INTO MEMB_INFO (memb___id,memb__pwd,memb_name,sno__numb) VALUES ('"&ps_loginname&"','"&ps_password&"','"&ps_nickname&"', '3')"
set rs2=conn.execute(sql)
Free_Windy 2004年12月26日
想知道.....
red163 2004年12月25日
不好意思。。点错 连接。。发到这里来了。。。。
射天狼 2004年12月25日
'连接SQL SERVER数据库
'cn.ConnectionString = "Driver={SQL Server};SERVER=DataServer;DATABASE=zxzx;UID=information;PWD=information*&#"
'连接MYSQL数据库
'cn.ConnectionString = "Driver={MySQL};Option=262144;port=1024;stmt=;Server=192.168.2.126;DataBase=mysql;User=root;Password="
'连接 SQL ANYWHERE 数据库
'cn.ConnectionString = "Driver={Sybase SQL Anywhere 5.0};DatabaseFile=" & App.Path & "\数据库\Refer.DB;DatabaseName=Refer;UID=dba;PWD=sql;AutoStop=yes;Agent=engine;Start=" & App.Path & "\数据库\dbeng50.exe -Q"
'连接 SYBASE 数据库
cn.ConnectionString = "Driver={Sybase System 11};SRVR=Cuizm;DATABASE=ResManage;UID=sa;PWD=admind"
'cn.ConnectionString = "Driver={SQL Server};SERVER=DataServer;DATABASE=zxzx;UID=information;PWD=information*&#"
'连接MYSQL数据库
'cn.ConnectionString = "Driver={MySQL};Option=262144;port=1024;stmt=;Server=192.168.2.126;DataBase=mysql;User=root;Password="
'连接 SQL ANYWHERE 数据库
'cn.ConnectionString = "Driver={Sybase SQL Anywhere 5.0};DatabaseFile=" & App.Path & "\数据库\Refer.DB;DatabaseName=Refer;UID=dba;PWD=sql;AutoStop=yes;Agent=engine;Start=" & App.Path & "\数据库\dbeng50.exe -Q"
'连接 SYBASE 数据库
cn.ConnectionString = "Driver={Sybase System 11};SRVR=Cuizm;DATABASE=ResManage;UID=sa;PWD=admind"
射天狼 2004年12月25日
这是一个简单的操作数据库的例子,包括增、删、改、查！！
射天狼 2004年12月25日
Option Explicit
'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim rs As New ADODB.Recordset, cn As New ADODB.Connection
'在MSHFLEXGRID表格控件中显示查询到的内容
Private Sub Command1_Click()
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
End Sub
'向数据库中添加数据
Private Sub Command2_Click()
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!UID = txtUid.Text
rs!PWD = txtPwd.Text
rs!TRUENAME = txtName.Text
rs!CREATEDATE = Format(Now, "YYYY/MM/DD")
rs.Update
Command1.Value = True
End Sub
'从数据库中删除数据
Private Sub Command3_Click()
cn.Execute "DELETE FROM USERPASSWORD WHERE UID = '" & txtUid.Text & "'"
Command1.Value = True
End Sub
Private Sub Command4_Click()
With MSHFlexGrid1
Clipboard.SetText .Text
End With
End Sub
Private Sub Command5_Click()
With MSHFlexGrid1
.Text = Clipboard.GetText
End With
End Sub
Private Sub Form_Load()
cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
"DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
"MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
"Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
cn.Open
'查询字符串可以上这里查
'http://www.connectionstrings.com/
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
Private Sub MSHFlexGrid1_RowColChange()
With MSHFlexGrid1
'MsgBox .TextMatrix(.Row, .Col)
End With
End Sub
'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim rs As New ADODB.Recordset, cn As New ADODB.Connection
'在MSHFLEXGRID表格控件中显示查询到的内容
Private Sub Command1_Click()
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
End Sub
'向数据库中添加数据
Private Sub Command2_Click()
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!UID = txtUid.Text
rs!PWD = txtPwd.Text
rs!TRUENAME = txtName.Text
rs!CREATEDATE = Format(Now, "YYYY/MM/DD")
rs.Update
Command1.Value = True
End Sub
'从数据库中删除数据
Private Sub Command3_Click()
cn.Execute "DELETE FROM USERPASSWORD WHERE UID = '" & txtUid.Text & "'"
Command1.Value = True
End Sub
Private Sub Command4_Click()
With MSHFlexGrid1
Clipboard.SetText .Text
End With
End Sub
Private Sub Command5_Click()
With MSHFlexGrid1
.Text = Clipboard.GetText
End With
End Sub
Private Sub Form_Load()
cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
"DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
"MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
"Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
cn.Open
'查询字符串可以上这里查
'http://www.connectionstrings.com/
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
Private Sub MSHFlexGrid1_RowColChange()
With MSHFlexGrid1
'MsgBox .TextMatrix(.Row, .Col)
End With
End Sub