我給你個例子:
Private Sub Form_Load()
Dim rs As Recordset
Dim sql As String
Dim conn As New ADODB.Connection
Set rs = New Recordset
conn.ConnectionString = "driver={SQL Server};" & _
"server=電腦名;uid=sa;pwd=;database=mydatabase"conn.Open
sql = "select * from mytable where id=* "
Set rs = conn.Execute(sql)
If rs.RecordCount > 0 Then
rs.MoveFirst
************
rs.MoveLast
End If
End Sub
Private Sub Form_Load()
Dim rs As Recordset
Dim sql As String
Dim conn As New ADODB.Connection
Set rs = New Recordset
conn.ConnectionString = "driver={SQL Server};" & _
"server=電腦名;uid=sa;pwd=;database=mydatabase"conn.Open
sql = "select * from mytable where id=* "
Set rs = conn.Execute(sql)
If rs.RecordCount > 0 Then
rs.MoveFirst
************
rs.MoveLast
End If
End Sub
解决方案 »
- 求提炼JCButton按钮控件 部分代码
- 求救~急~关于VB+ACCESS ADO INSERT的问题
- 如何动态的向DATAGRID中新增记录,而不是用DATASOURCE
- 关于数据报表的分栏问题。。。指点下
- 利用vb 6.0设计程序实现photoshop的部分功能
- 用水晶报表做报表,有一字段的内容较多,将其属性.CanGrow = True,因为折成几行不确定,其下面的字段位置纵坐标不知如何确定?
- WORD中有关单元格合并后的表格问题
- 如何实现文字的闪烁效果啊???
- VBA excel简单应用,新手求源代码,有效便散分---在一批10万个物料中筛选出其中的3000个左右的坏件?(坏件有唯一物料编码,且已知)
- vb代码实现表的创建谁会呀?????
- 请教各位高手,如何把API函数coCreateGuid产生的GUID数据类型转化为string
- 有谁是湖南的,进来签到!
多步ole db操作产生错误,请检查每个oledb的状态值,没有工作被完成
Set OraSession=CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.DbOpenDatabase("infosec.world","gr/123456",0 )
Set OraSession=CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.DbOpenDatabase("infosec.world","gr/123456",0 )
==============================================================
Dim Cn As ADODB.Connection
Dim CP As ADODB.Command
Dim Rs As ADODB.Recordset
Dim Conn As String
Dim QSQL As String'Connect to Oracele server begin
Conn = "DRIVER={ORACLE ODBC DRIVER};" & _
"SERVER=Servicename;UID=username;PWD=password;" & _
"DBQ=Servicename;" & _
"DBA=W;APA=T;FEN=T;QTO=T;FRC=10;FDL=10;" & _
"LOB=T;RST=T;FRL=F;MTS=F;CSR=F;PFC=10;TLO=O;" Set Cn = New ADODB.Connection With Cn
.ConnectionString = Conn
.CursorLocation = adUseClient
.Open
End With If Cn.State = adStateOpen Then
MsgBox "Connection successful."
End If'Connect to Oracle server end
'close connection begin
Cn.Close
Set Cn = Nothing
Set CP = Nothing
'close connection end
-- What I said in the Morning ? I remembered I didn't login to CSDN this morning . :)