MySql操作

[core2@ob1001 ~]$ mysql -u core2_site -D core2_site -p

パスワードを求められる

 

Enter password:

mysql>

exit;

 

 

カラムの属性変更

alter table contents modify id int NOT NULL PRIMARY KEY AUTO_INCREMENT;

カラムの表示

show columns from contents;

Sub ボタン4_Click()



'定義
Dim headStr As String
Dim postData
Dim Stream

'値セット
headStr = "Content-Type: application/x-www-form-urlencoded " & vbCrLf

'Stremの生成
Set Stream = CreateObject("ADODB.Stream")
Stream.Open
Stream.Charset = "Shift_JIS"  '文字コード
Stream.WriteText "param1=" & url_enc(Sheet1.Cells(1, 1).Value)     'POST値をGET形式で指定する
Stream.Position = 0
Stream.Type = 1
postData = Stream.Read
Stream.Close

'POST実行
Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True  'IEを表示させたくない場合はFalseを指定する
objIE.Navigate "https://prg.waou.biz/test.php", , , postData, headStr



End Sub


Function url_enc(strWord As String)
Dim sc As Object
Dim js As Object

Set sc = CreateObject("ScriptControl")
sc.Language = "Jscript"
Set js = sc.CodeObject
url_enc = js.encodeURIComponent(strWord)

End Function

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください