这东西源代码没啥用,一个程序一个样,你想要我给你个我写的程序代码看看
但是最好是看书上的例子,掌握SQL语言,也不是很难,有看源码的时间都学会了
但是最好是看书上的例子,掌握SQL语言,也不是很难,有看源码的时间都学会了
解决方案 »
- 版主 急 求助 VB运行时错误5 无效的过程调用或参数
- 有工作经验的VB程序员请进。。。
- xp下vb/vc安装失败
- 如果系统中已经有相同的实例在运行,那么如何将这个实例恢复到正常运行时的窗口界面
- 那位高手可以改变datagrid控件指定行的高度?其他控件可以做到吗?
- VB中怎么实现联动下拉表
- 怎么才能让DATA控件支持ACCESS2000?
- 我想用vba对已经打开的mdb文件中的数据进行操作,如何进行?
- vb中怎样制作工具条toolbar?
- ~~~~~~~~~~~~~~~关于打包大小的问题!
- 怎么用ShellExecute 调用,关闭文件及应用程序(例如WORD)!!!(空文档)
- 通过语音输入实现命令的识别,就像以前用语音控制程序的方法
Set RS = CN.Execute(strSQL)
http://www.applevb.com/mysoft.htm
Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String
Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=dev-mail;Initial Catalog=e3v30;User Id=e3user;Password=8626253217; "
cnn1.Open strCnn
Set rstSchema = cnn1.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
Debug.Print "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr
rstSchema.MoveNext
Loop
rstSchema.Close
cnn1.Close