| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1269 人关注过本帖
标题:需要實例子
只看楼主 加入收藏
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
结帖率:70%
收藏
 问题点数:0 回复次数:4 
需要實例子
本人由於現在正在自急需要一些例子, +sql server 2000 最好是vb2005+sql server 2000的例子
如:進銷存或通訊錄
望幫我轉成繁體,我沒有這類的控件將簡體轉為繁體
謝謝
搜索更多相关主题的帖子: vb2005 
2008-10-21 14:13
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
收藏
得分:0 
如何用
從連接數據庫,到打開表,找有沒有這個數據,代碼如何寫

烈焰照耀世界,斌凍凍千萬裏
2008-10-22 20:27
tfnpghl
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2007-7-17
收藏
得分:0 
1.连接数据库
  Dim Conn As OleDb.OleDbConnection
  Conn = New System.Data.OleDb.OleDbConnection"Data Source=.\SQLEXPRESS;AttachDbFilename=c:\你的数据库名.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
2.读取数据库中的全部表名
    Conn.Open()
    Dim Table As Data.DataTable = Data.DataTable = Conn.GetSchema("Tables")
    Dim drc As System.Data.DataRowCollection = Table.Rows
        Dim dr As Data.DataRow = Nothing
           For Each dr In drc
              Dim tablename As String = dr("TABLE_NAME").ToString '读取数据库中全部表名
             if tablename = "你的数据表名" Then
              Return tablename
             End if
        Next
      Conn.Close()
      Return ""
供你参考
2008-10-23 10:39
逐日
Rank: 2
等 级:新手上路
威 望:5
帖 子:117
专家分:2
注 册:2008-9-22
收藏
得分:0 
学习学习
2008-10-23 11:10
winorange
Rank: 1
来 自:浙江宁波
等 级:新手上路
威 望:1
帖 子:136
专家分:0
注 册:2008-3-29
收藏
得分:0 
数据库是我的门楷始终没进去,只是连接,但代码一点也看不懂.

处处尽力尽快,一切顺其自然。
2008-10-24 08:37
快速回复:需要實例子
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.086137 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved