Question

VB如何访问网络数据库

本人知道ASP上访问数据库的方式，也了解VB通过ADODC控件或对象访问数据库，请问6.0版本的VB，能否访问网络数据库，如本机服务器的access文件，如果可以，请问需要添加什么对象和控件，语言如何编写？谢谢

Answer 1

用SQL数据库吧！！这个操作起来要简单一些，利用ADO 你可以很轻松的就完成自己想要的东西！@
数据库连接代码如下
Option Explicit
'API 函数部分

'数据库部分
'Public rs As New ADODB.Recordset '数据专用
Public Cnn As ADODB.Connection '一个ADO连接字符串

Public UserFlag As Long '确定操作员的权限，普通用户、超级用户、财务用户 窗体4
Public UserID As String '确定当前操作员名称 窗体4

Public SelStr As String '查询选择字段标志 取 工单号 字段 窗体1
Public SELName As String '查询选择字段标志 取 委印单位 字段 窗体6、7

Public PrtSc As Integer '确定打印以纵向或是横向 窗体9
Public HZ_SELStr As String '确定承印机台 窗体9、10

Public LBFlag, PSFlag, PRTFlag As Long '汇总类别标志
Public MinDate, MaxDate As String '定义查询与汇总时段 时间段的最小最大取值
Public MXLXFlag As Long '明细类型 类型为1以承印机台显示明细 为2以纸度、纸张克数、纸类名称显示明细
Public ZDLX, ZZKZ, ZLMC As String '确定承印机台 窗体9、10

Public Sub DateConnection() '连接一个数据库的过程
Dim sql As String

'sql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;PWD=sa;Initial Catalog=work_DB;Data Source=sun"
'sql = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;driver={SQL Server};server=SUN;uid=sa;pwd=sa;database=work_DB;"
'sql = "driver={SQL Server};server=SUNSERVER;uid=sa;pwd=sa;database=work_DB" '本地访问
sql = "driver={SQL Server};server=SUN;uid=sa;pwd=sa;database=work_DB" '局域网内访问

Set Cnn = New Connection
Cnn.ConnectionTimeout = 30
Cnn.CursorLocation = adUseClient '当为客户端模式时，Mode 只能是未知
Cnn.Open sql

End Sub

Public Sub Main()

Call DateConnection '调用数据库连接过程 连接数据库文件
MDIForm1.Show

End Sub

Answer 2

这个实现不了
但你可以用ASP做个接口让你的VB程序调用