Results of 1 - 1 of about 670 for 』（ ! ---- | ----* (0.107 sec.)
』（ (96002), ---- (-96124)
- [[20061219135901]]
- #score: 4667
- @digest: f9fd4f8203033d32ec74e7ef63a14f9c
- @id: 27419
- @mdate: 2006-12-19T05:02:58Z
- @size: 1483
- @type: text/plain
- #keywords: wcon (21479), wcmd (19644), wrs (14536), y0023940 (7748), uprm (7498), tprm (7498), sprm (7498), scon (7159), 得sc (6425), parameters (6092), adodb (5194), commandtext (4113), activeconnection (4065), command (4030), 注" (3920), recordset (3336), copyfromrecordset (2629), connection (2321), provider (1883), 出") (1676), 一文 (1230), textbox3 (847), commandbutton2 (809), execute (747), 受注 (668), textbox2 (660), new (559), 仕組 (511), 配列 (492), nothing (483), string (482), trim (478)
- 『配列について』（よねっち）
こんにちは。 以下のようなコードがあります。 フォームがあって、コマンドボタンと、テキストがひとつづあります。 テキストに、抽出したいデータの一文字を渡すと、その分のデータが抽出できるような 仕組みです。 それで、一文字はOKだったのですが、3つ指定してデータを出したいのですが、 配列が上手くいきません。 「Array」関数を使っていますが、どうしたら上手くいくでしょうか? よろしくお願いいたします。 Private Sub CommandButton2_Click() Dim wsql As String Dim wCon As ADODB.Connection Dim wRs As ADODB.Recordset Dim wCmd As ADODB.Command Dim sCon As String Dim sPrm As String Dim tPrm As String Dim uPrm As String Worksheets("抽出").Activate Cells.Clear 'パスの取得 sCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ThisWorkbook.Path & "¥Y0023940.mdb" Set wCon = New ADODB.Connection wCon.Open sCon Set wRs = New ADODB.Recordset Set wCmd = New ADODB.Command wCmd.ActiveConnection = wCon wCmd.CommandText = "Q_受注" '配列をここから指定 sPrm = Trim(TextBox1.Text) tPrm = Trim(TextBox2.Text) uPrm = Trim(TextBox3.Text) Set wRs = wCmd.Execute(Parameters:=array(sPrm,tPrm,uPrm) Range("A1").CopyFromRecordset wRs Set wCmd = Nothing wRs.Close: Set wRs = Nothing wCon.Close: Set wCon = Nothing End Sub... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200612/20061219135901.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97040 documents and 608209 words.
訪問者：