VBでフォームを作ってSQLServer2000にデータ登録したい。
の、ですが、可能でしょうか?ついでに詳しいやり方、
SQL SERVER2000のパーソナルエディション。
http://www.microsoft.com/japan/sql/enterprise/fe …
の値段も教えていただければうれしいのですが。

よろしくおねがいします。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

>VBでフォームを作ってSQLServer2000にデータ登録したい。


>の、ですが、可能でしょうか?

可能です。
ODBC経由でのRDBアクセスが可能です。
詳しくは、本屋に行ってVB-ODBC関係の書籍を探してください。


>SQL SERVER2000のパーソナルエディション。
http://www.microsoft.com/japan/sql/enterprise/fe …
>の値段も教えていただければうれしいのですが。

取引のあるディーラかパソコンショップに見積を出してもらいましょう。
(MSのサーバライセンスは、素人が調べるのと面倒くさい)
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

QSQL Server2000+VS.NETで画像をweb表示したい

環境はWIN2K Server + SQLServer2000でイントラネットを組んでいます。開発はVS.NET2003 Professionalで行っています。SQL Serverに社員の顔写真をSQL Serverで保存(列属性は列名:顔写真 データ型:image 長さ:16)してあります。
顔写真のSQLサーバーへの保存は、ACCESSでフォームを作成し、アクセスのフォームへペーストしてSQLサーバーへ保存しています。
この環境で、社員名簿をイントラネットでwebで作ったのですが、氏名、所属などのデータは当然表示できるのですが、顔写真の表示をWebformで出来ません。どなたか、やり方がわかる方、教えてください。

Aベストアンサー

ちょっと探したけど、サンプルないね。

イメージタグを貼る。
<img src="photo.aspx?id=1">

photo.aspx内で

IMAGEを読み込んで、
http://support.microsoft.com/default.aspx?scid=kb;ja;308042

gifかjpegに変換して、
(方法不明)

バイナリーを応答する。
http://support.microsoft.com/default.aspx?scid=kb;ja;306654

QVB5.0+SQL-Server7で日付を条件とした検索がうまくいかない。

【やりたい事】
 XXXTBLのDATE1が今日より前のレコードを読みたい。
 SQL-ServerのDATE1属性は「datetime」です。

【やってみた事1】
Dim wk_Today As Date
wk_Today = Date
SQLText = " select *" & _
     " From XXXTBL" & _
     " Where DATE1 < " & "#" & wk_Today & "#"

【結果1】
実行時エラー 3146
ODBC呼び出しが失敗しました。


【やってみた事2】
Dim wk_Today As Date
wk_Today = Date
SQLText = " select *" & _
     " From XXXTBL" & _
     " Where DATE1 < " & wk_Today
【結果2】
 該当データなし。
 (条件に合致するレコードを作っておいたのに)


【やってみた事3】
SQLText = " select *" & _
     " From XXXTBL" & _
     " Where DateDiff('d',DATE1," & "#" & Date & "#" & ") > 0 "

【結果3】
 読めました。


【質問】
 なぜ、1と2は駄目だったのでしょうか?
 1か2の方法でできた方が素直な感じがするのですが。

 VBにもSQL-Serverにも精通しておらず、つたない
質問で申し訳ありませんが、不足する情報は補足しま
すので、ご教授お願いいたします。

【やりたい事】
 XXXTBLのDATE1が今日より前のレコードを読みたい。
 SQL-ServerのDATE1属性は「datetime」です。

【やってみた事1】
Dim wk_Today As Date
wk_Today = Date
SQLText = " select *" & _
     " From XXXTBL" & _
     " Where DATE1 < " & "#" & wk_Today & "#"

【結果1】
実行時エラー 3146
ODBC呼び出しが失敗しました。


【やってみた事2】
Dim wk_Today As Date
wk_Today = Date
SQLText = " select *" & _
     " From XXXTBL" & _
     "...続きを読む

Aベストアンサー

select * From XXXTBL Where DATE1 < '2005/02/16'
なら動くのでは?
あるいは、
select * From XXXTBL Where DATE1 < '2005/02/16 00:00:00'

QImage型のバイナリデータを表示したい

こんにちは。
VB6.0+SQLServer2000で開発を行っています。
Image型の項目を用意して、PictureBoxなりなんなりに表示したいのですが、バイナリデータの変換方法がわかりません。
どなたか教えてください。

とりあえず、今はこんなかんじでPG書いてます。
===============================================
Private Sub Command1_Click()
Dim rs As adodb.Recordset
Dim mstream As adodb.Stream
Dim strSql As String
On Error GoTo Err_Command1_Click

strSql = "select * from 車体画像 where 整理番号='00000001'"

Set rs = New adodb.Recordset
rs.Open strSql, cn, adOpenKeyset, adLockOptimistic

Set mstream = New adodb.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("画像データ").Value
'ここからどうすればいいのか分かりません…
Exit Sub

Err_Command1_Click:
MsgBox Error
End Sub

こんにちは。
VB6.0+SQLServer2000で開発を行っています。
Image型の項目を用意して、PictureBoxなりなんなりに表示したいのですが、バイナリデータの変換方法がわかりません。
どなたか教えてください。

とりあえず、今はこんなかんじでPG書いてます。
===============================================
Private Sub Command1_Click()
Dim rs As adodb.Recordset
Dim mstream As adodb.Stream
Dim strSql As String
On Error GoTo Err_Command1_Click

strSql = "select * fro...続きを読む

Aベストアンサー

http://oshiete1.goo.ne.jp/kotaeru.php3?q=472113

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=472113

Qsql2000 vb2008接続

VB2008/standard editionでremote PC/dynabook1のMSDE/sql2000
のnCalnartに接続を試みるとき
error/providerはサポートされていません/がでます。

デザイン時には接続されるのですが
原因と対策をお教えください

Dim scn As SqlClient.SqlConnection = New SqlClient.SqlConnection

scn.ConnectionString = "Provider=SQLOLEDB;Data Source=DYNABOOK1;Persist Security Info=True;User ID=sa;Initial Catalog=nCalnart"

Try
scn.Open()
MessageBox.Show("接続しました")
scn.Close()
MessageBox.Show("切断しました")

Catch ex As Exception
MessageBox.Show(ex.Message, "error")

End Try

VB2008/standard editionでremote PC/dynabook1のMSDE/sql2000
のnCalnartに接続を試みるとき
error/providerはサポートされていません/がでます。

デザイン時には接続されるのですが
原因と対策をお教えください

Dim scn As SqlClient.SqlConnection = New SqlClient.SqlConnection

scn.ConnectionString = "Provider=SQLOLEDB;Data Source=DYNABOOK1;Persist Security Info=True;User ID=sa;Initial Catalog=nCalnart"

Try
scn.Open()
MessageBox.Show("接続しました")
...続きを読む

Aベストアンサー

Providerは指定しない

http://msdn.microsoft.com/ja-jp/library/system.data.sqlclient.sqlconnection.connectionstring(v=vs.80).aspx

QVB6でのPL/SQLの実行について

現在VB6(SP6)でORACLEのデータベースに接続後、プロシージャを実行してOUTのパラメータを取得したいと思ってプログラムを作っております。
ORACLEへの接続はいろいろ調べてできたのですが、プロシージャの実行(呼び出し)のしかたがわからず困っております。

PL/SQL(プロシージャ名"TEST_DATA")
out1 = TEST(OUTパラメータ1)
out2 = これはテストです。(OUTパラメータ2)

VB6(SP6)
Dim OraSession As OraSession
Dim OraDatabase As OraDatabase
Dim OraDynaset As OraDynaset
Dim P1 AS String
Dim P2AS String

'接続処理
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("TEST", "TEST/TEST DB_DEFAULT)

OraSession.BeginTrans

'ここでPL/SQLを実行して、パラーメタを取得したいです。

'取得したパラメータをセット
P1 = パラメータ1(TEST)
P2 = パラメータ1(これはテストです。)

OraSession.CommitTrans

'結果表示
Call MsgBox(P1 & "結果" & P2)

ご教授のほどをお願いいたします。

現在VB6(SP6)でORACLEのデータベースに接続後、プロシージャを実行してOUTのパラメータを取得したいと思ってプログラムを作っております。
ORACLEへの接続はいろいろ調べてできたのですが、プロシージャの実行(呼び出し)のしかたがわからず困っております。

PL/SQL(プロシージャ名"TEST_DATA")
out1 = TEST(OUTパラメータ1)
out2 = これはテストです。(OUTパラメータ2)

VB6(SP6)
Dim OraSession As OraSession
Dim OraDatabase As OraDatabase
Dim OraDynaset As OraDynaset
Dim P1 AS String
Dim P...続きを読む

Aベストアンサー

'ORACLEで利用する定数
Public Const ORAPARM_INPUT = 1
Public Const ORAPARM_OUTPUT = 2
Public Const ORAPARM_BOTH = 3

Public Const ORATYPE_VARCHAR2 = 1
Public Const ORATYPE_NUMBER = 2





Dim OraSession As OraSession
Dim OraDatabase As OraDatabase
Dim OraDynaset As OraDynaset
Dim P1 AS String
Dim P2 AS String

'接続処理
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("TEST", "TEST/TEST DB_DEFAULT)

'パラメータの設定
OraDatabase.Parameters.Add "out1", "", ORAPARM_OUTPUT
OraDatabase.Parameters("out1").serverType = ORATYPE_VARCHAR2
OraDatabase.Parameters.Add "out2", "", ORAPARM_OUTPUT
OraDatabase.Parameters("out2").serverType = ORATYPE_VARCHAR2

'プロシージャ実行
OraDatabase.ExecuteSQL("begin TEST_DATA(:out1, :out2); end;")

'ここでPL/SQLを実行して、パラーメタを取得したいです。

'取得したパラメータをセット
P1 = OraDatabase.Parameters("out1").Value
P2 = OraDatabase.Parameters("out2").Value

'結果表示
Call MsgBox(P1 & "結果" & P2)

こんな感じかな・・・
動作確認はしておりませんので・・・

'ORACLEで利用する定数
Public Const ORAPARM_INPUT = 1
Public Const ORAPARM_OUTPUT = 2
Public Const ORAPARM_BOTH = 3

Public Const ORATYPE_VARCHAR2 = 1
Public Const ORATYPE_NUMBER = 2





Dim OraSession As OraSession
Dim OraDatabase As OraDatabase
Dim OraDynaset As OraDynaset
Dim P1 AS String
Dim P2 AS String

'接続処理
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("TEST", "TEST/TEST DB_DEFAULT)...続きを読む


このカテゴリの人気Q&Aランキング

おすすめ情報