ZKX's LAB

VB访问SQL SERVER服务器图片时,是否可以只通过某个路径来实现? vb实现不同服务器SQL数据库访问

2020-08-13知识15

VB访问SQL SERVER服务器图片时,是否可以只通过某个路径来实现? SQLSEVER 存储照片的时候,是以二进制储存的,你读取出来以后另存为再访问保存的文件就OK当然可以,既然是CS结构,你可以开设WEB服务,就解决了用VB怎么编写用ADODC连接到其他服务器上的SQL数据库? 1:VB编写的登录局域网内的sql2000数据库服务器代码Private Sub Command1_Click()'首先引用Microsoft Activex Data Objects 2.x LibraryDim objcon As New ADODB.ConnectionDim objrs As New ADODB.RecordsetDim strConn As StringstrConn=\"Provider=SQLOLEDB.1;User ID=sa;password=密码;Initial Catalog=数据库名称;Data Source=本机IP地址(192.168.1.136)objcon.Open strConn'strConn=\"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=hNXQF222;Initial Catalog=database;Data Source=192.168.1.136'objcon.Open\"Provider=sqloledb.1;user id=sa;password=hNXQF222;Initial Catalog=Northwind;Data Source=objrs.Open\"select*from Orders\",objcon,3,1'在部件中添加DataGrid控件Set DataGrid1.DataSource=objrsEnd Sub2:用SETFACTORY打包可以打包数据库!VB6.0与sql数据库连接和使用,VB通过ADO连接SQLSever数据库可以分为有源数据库连接和无源数据库连接,它们的区别是是否使用了DSN(数据源名称)来决定。本人想通过VB访问局域网上某台服务器上的sql服务器数据库,不知是否可以动态指定服务器名称和数据库名称?? 可以在连接字符串中指定服务器名称和数据库名称。在SQLServer 2005上启用远程连接 1.指向“开始->;程序->;Microsoft SQL Server 2005->;配置工具->;SQL Server 外围应用配置器。如何通过VB6.0代码实现在SQL服务器上建立SQL数据库和表? 你用ODBC或者ADO都可以。以ADO为例,先建立与服务器的连接,再建立一个COMMAND对象,用这个对象执行建立数据库和表的SQL语句就可以了,也可以使用连接的Execute方法来执行。VB如何连接SQL数据库并登录? Option ExplicitPrivate Function Selectsql(SQL As String)As ADODB.Recordset '返回ADODB.Recordset对象Dim ConnStr As StringDim Conn As ADODB.ConnectionDim rs As ADODB.RecordsetSet rs=New ADODB.RecordsetSet Conn=New ADODB.Connection'On Error GoTo MyErr:ConnStr=\"Provider=SQLOLEDB.1;Persist Security Info=True;User ID=登录数据库用户名(默认为sa);Password=登录数据库密码;Initial Catalog=数据库名;Data Source=服务器名(默认为:MERRYCHINA)\"'这是连接SQL数据库的语句Conn.Open ConnStrrs.CursorLocation=adUseClientrs.Open Trim$(SQL),Conn,adOpenDynamic,adLockOptimisticSet Selectsql=rs'Exit Function'MyErr:'Set rs=Nothing'Set Conn=Nothing '释放相关的系统资源'MsgBox Err.Description,vbInformation,\"系统提示\"'显示出错信息End FunctionPrivate Sub Form_Load()Dim SQL As StringDim rs As ADODB.RecordsetDim X As LongOn Error GoTo Err_boxSQL=\"select*from 用户表Set rs=Selectsql(SQL)If rs.RecordCount>;0 Thenrs.MoveFirstFor X=1 To rs.RecordCountCombo1.AddItem rs.Fields(\"用户名\").Valuers。vb程序,访问SQL数据库的一个表,能够增加和删除记录 首先在FORM_LOAD方法里面调用打开连接的方法OpenconPrivate Sub Form_Load()OpenConEnd Sub然后再来定义怎么连接到数据库,用下面的代码:Public Function OpenCon()As BooleanDim mag As String '定义一个消息框On Error GoTo strerrmag '发生错误程序跳转到消息框Set conn=New Connection '创建一个连接conn.Open\"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=数据库用户名;password=数据库登陆密码;Initial Catalog=数据库名;Data Source=服务器名OpenCon=TrueaddFlag=TrueExit Functionstrerrmag:mag=\"Data can't connectCall MsgBox(mag,vbOKOnly,\"Error:Data connect\")'定义消息框addFlag=FalseExit FunctionEnd Function现在你已经创建好了到数据库的连接了接下来是怎么对数据库进行添加查询和删除了先来看添加,创建一个方法 save 来执行在数据库里添加记录的任务Private Sub Save()'定义一个叫SAVE的方法Set rs=New Recordset '创建一个叫rs的连接字段rs.Open\"select*from 表名\",conn,adOpenKeyset,adLockPessimistic '打开连接rs.AddNew '调用VB里面的AddNew方法进行插入记录r(0)='' '对数据库里的表里的字段进行赋值,括号。

#数据库#data#sqlserver#数据库服务器#sql语言

随机阅读

qrcode
访问手机版