***** 如何用最简单的方法连接和操作SQL SERVER数据源 万分火急, 还请各位大侠赐救,请给出示范代码,不胜感激!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 http://msdn.microsoft.com/vstudio/express/vb/learning/ 引用microsoft activeX data objiects 2.5 libraryPublic Sub ConnectionStringX()Private m_Qcn As ADODB.Connection m_Qcn.CommandTimeout = 45 m_Qcn.Provider = "sqloledb" m_Qcn.Properties("Data Source").Value = 服务器名称 m_Qcn.Properties("Initial Catalog").Value = 数据库名称 m_Qcn.Properties("Persist Security Info").Value = False m_Qcn.Properties("User ID").Value = 数据库登陆名'"sa" m_Qcn.Properties("Password").Value = 数据库登陆密码' SysPassword m_Qcn.CursorLocation = adUseServer m_Qcn.OpenEnd Sub 最简单的 莫过于用ADODC + DATAGRID 控件了 最简单的 莫过于用ADODC + DATAGRID 控件了___________________________________________________________________________________________________________________________________________________________________________________--但是_____________ Dim Conn As New ADODB.Connectionstrcon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=supplychain;Data Source=192.168.10.250"conn.CursorLocation = adUseClientconn.Open strcon我的简单哦,引用miscroft activex data objects 2.0 Dim Conn As New ADODB.Connectionstrcon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=supplychain;Data Source=192.168.10.250"conn.CursorLocation = adUseClientconn.Open strcon我的简单哦,引用miscroft activex data objects 2.0同意楼主不厚道 Treeview 关于所选节点的所有父节点的Key值. 请问用vb怎么删除d盘下的一个excel文件? 请问Web中的ActiveX可以和本地的一个Exe程序进行通信吗? 怎样删除数据库里的一个表? VB在打印报表,能用程序代码实现,设置纸张大小吗?(急急急!!!) 打印的问题 计算磁盘剩余空间时溢出,怎么解决? JNEU:( 关于VB中的DBGRID显示信息的问题 求救!文件句柄,邪门啦?? 高手看看:可以做一个类模块,里面包含一个窗体,调用类模块时把窗体显示出来吗? 请大家多帮帮我,我是VB的初学者,多谢了!!
Public Sub ConnectionStringX()
Private m_Qcn As ADODB.Connection
m_Qcn.CommandTimeout = 45
m_Qcn.Provider = "sqloledb"
m_Qcn.Properties("Data Source").Value = 服务器名称
m_Qcn.Properties("Initial Catalog").Value = 数据库名称
m_Qcn.Properties("Persist Security Info").Value = False
m_Qcn.Properties("User ID").Value = 数据库登陆名'"sa"
m_Qcn.Properties("Password").Value = 数据库登陆密码' SysPassword
m_Qcn.CursorLocation = adUseServer
m_Qcn.Open
End Sub
ADODC + DATAGRID 控件了
ADODC + DATAGRID 控件了
___________________________________________________________________________________________________________________________________________________________________________________--但是_____________
strcon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=supplychain;Data Source=192.168.10.250"
conn.CursorLocation = adUseClient
conn.Open strcon
我的简单哦,引用miscroft activex data objects 2.0
strcon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=supplychain;Data Source=192.168.10.250"
conn.CursorLocation = adUseClient
conn.Open strcon
我的简单哦,引用miscroft activex data objects 2.0
同意
楼主不厚道