求VB与SQLSERVER2000通过互连网访问问题。

red163 2004-12-25 04:17:59
也就是通常说的网络编程,但是小弟对于网络这块一知半解,公司要我做个软件,要求分公司通过可以通过网络操作数据,以免分公司私藏客户,因此,我在这里求一段示例代码或者相关资料、教材,最好是关于客户端访问服务器数据库中的客户资源并可以进行修改,添加,删除和查询操作,希望能简单点。
谢谢!

比较郁闷。我最多只能放100分,本来想一次放500分的,希望大家原谅。实在不够,我开新帖放分,只要能解决问题!
...全文
190 点赞 收藏 22
写回复
22 条回复
red163 2005年01月11日
我想 只要可以远程访问操作就可以了 那样来简单就那样,可是我就是不会网络。
回复 点赞
hongonline 2004年12月29日
好像在C/S中,在你修改数据时,你应该在你更改原来的数据之前,检测是否原来的数据已被其它用户修改吧,然后提示是否覆盖人家新的数据
用不用?大虾们
回复 点赞
hongonline 2004年12月29日
TO red163(虎威)
你自动测试远程服务器的数据库是否可以连接,是用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等
回复 点赞
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语句很慢(看你网速),建议本地放一个数据库,打开程序时先将服务器上的数据写到本地数据库,添加,删除,修改以后再一起从本地将数据写到服务器数据库中。
回复 点赞
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)
回复 点赞
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"
回复 点赞
射天狼 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
回复 点赞
发动态
发帖子
网络编程
创建于2007-09-28

1145

社区成员

1.8w+

社区内容

VB 网络编程
社区公告
暂无公告