VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 2005/05/31(Tue) 11:05
投稿者kazuやん
URL
タイトルRe^4: SQLエラー

単純に以下のサイトの用に組めば良いだけでは?

hhttp://homepage2.nifty.com/inform/vbdb/reportsample.htm

> おはようございます
> お世話になっております、karaです
>
> やってみているのですが、勉強不足で分かりません。。。。
> ご指示いただければありがたいです。
>
> Private Sub Command1_Click()
> Dim strSQL As String
> ' データベース接続を確立する
> Set cn = CreateObject("ADODB.Connection")
> cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> "Data Source=c:\db1.mdb"
>
> ' SQLクエリーの設定
>
>     ' レコードセットを取得
>     Set rs = New ADODB.Recordset
>     rs.CursorLocation = adUseClient
>     rs.Open "テーブル1", cn, adOpenStatic
>
> strSQL = "SELECT テーブル1.住所, テーブル1.名前, テーブル1.役職 From テーブル1 WHER
E テ
> ーブル
> 1.住所='東京'"
>
> ' レコードセットを取得する
> Set rs = cn.Recordset(strSQL)
>
> ' レポートのデータソースを指定(レコードセットから情報を取得する)
> Set DataReport1.DataSource = rs
>
> ' レポートを表示(プレビュー)する
> DataReport1.Show
>
> End Sub


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -