如何用VB得到SQL的User Id、PassWord或本机的IP

guyehanxinlei 2006-10-12 03:49:04

如何使用VB得到本机SQL的User Id、PassWord、本机的IP地址用于SQL数据的连接？
谢谢各位！

...全文

157 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

fxy_2002 2006-10-12

打赏
举报

回复

密码要是能用代码得到，还算密码吗？

你必须要有一个userid、密码才能访问sql，否则没办法连接。
如果 sql 支持windows用户验证，用当前系统用户名、密码可以连接。
但是你已能连接了，还需要再得到吗？

Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset对象 Dim ConnStr As String Dim Conn As ADODB.Connection Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Set Conn = New ADODB.Connection 'On Error GoTo MyErr: ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=sa;Initial Catalog=data;Data Source=127.0.0.1" '这是连接SQL数据库的语句 Conn.Open ConnStr rs.CursorLocation = adUseClient rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic Set Selectsql = rs 'Exit Function

用VB6编写的代码 Private Sub Command2_Click() strconnect = "provider=SQLOLEDB;Persist Security Info=true;User Id='" & Tname & "';PassWord='" & Tpwd & "'; Initial Catalog=master;Data Source='" & Tserver & "'" If Conn.State = 1 Then Conn.Close Conn.Open strconnect 'GetSq Now sql = "select * from sysdatabases where name = '" & Tdatabase & "'" If rst.State = 1 Then rst.Close rst.CursorLocation = adUseClient rst.Open sql, Conn, adOpenStatic, adLockReadOnly 'If rst.EOF = True Then 'MsgBox "修改前的数据不存在，请检查！", vbInformation, "检查数据库是否存在" 'Exit Sub 'End If If rst.EOF = False Then Conn.Execute "exec sp_rename '" & Tdatabase & "','" & Tdatabase1 & "','database'" Else Conn.Execute "exec sp_rename '" & Tdatabase1 & "','" & Tdatabase & "','database'" End If 'MsgBox "执行完毕", vbOKOnly Unload Me End Sub

本课程用VB6(Visual Basic)结合GDI+，从无到有开发一个功能较完整的小型交互式CAD系统。作者有交互式CAD系统、动态几何系统开发经验。出版过交互式CAD系统开发方面的图书。课程先讲准备知识，然后讲整个系统的开发思路和主要技术，最后将整个系统分成8个版本，从最简单的绘图开始，逐步添加功能，循序渐进地进行讲解。知识点讲解细致，系统。课程的核心在于源代码，学习每章内容之前，请先下载本章源码。建议先自行对源码进行阅读分析，然后带着问题去听课，这样学习效率比较高，效果比较好一些。课程最终提供的内容和服务：PPT+源码+视频讲解+持续升级/****课程第一节课为免费课，演示了系统的主要功能。可以用手机或电脑观看。如果无法观看，请私信我。谢谢！*****/友情提醒：凭订单信息可找平台客服开具发票。购买系列课程提供打包价，购买讲师卡更划算。

RComponent.DataObject is an object persistence layer for .NET Framework. A high-performance persistence middleware with multi-database capability. It provides a simple and flexible way to map objects to relational database. RComponent.DataObject handles all types of relations,automatic transaction management, Automatically updates the database schema, Sql Server,DB2, Oracle, Access, Ase, Query by object,Paging, criteria, Mapping behaviour, mutil connection support, Data save and get, No XML mapping. Supports all of C#, C++ and VB languages. Connection string SqlServer User ID=sa;password=;Initial Catalog=SQLServerDBName;Data Source=ServerHost ;Connect Timeout=180 DB2 server=serverhost;user id=userid;password=password;database=database;persist security info=true Ase Port=;Data Source=serverhost;User ID=userid;Password=Password; Initial Catalog=database;persist security info=true Access Provider=Microsoft.Jet.OLEDB.4.0;User ID=User;Data Source=DataSource;Mode=Share Deny None Oracle Data Source=serverHost;user id=userid; password= password

'VB.net 连接SQL数据库的方法(一) [采用数据集] '================================================== ' 在窗体上添加一个DataGrid控件命名为DataGrid1.在窗体加载事件Load里写入以下代码： Dim 数据库连接 As New OleDb.OleDbConnection("Provider=SQLOLEDB;User ID=sa;Password=;Initial Catalog=FKapp;data Source=.") ' 这里<连接字符串>"'<连接字符串>可以自动生成 (Connect Timeout=30)超时时间30秒 ' 或数据库连接.ConnectionTimeout =30 Dim 数据适配器 As New OleDb.OleDbDataAdapter("select * from tab_load", 数据库连接) ' 这里是SQL语句 Dim 数据集 As New DataSet '定义一个数据集数据适配器.Fill(数据集, "tab_load") '加载数据到数据集 DataG

7,763

社区成员

197,609

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章