Dim oConn As ADODB.Connection
Private Sub ConnectDB()
Set oConn = New ADODB.Connection
Dim str As String
str = "DRIVER={MySQL ODBC 5.2.2 Driver};" & _
"SERVER=sql100.xtreemhost.com;" & _
"PORT=3306" & _
"DATABASE=xth_9595110_MyNotes;" & _
"UID=xth_9595110;" & _
"PWD=myPassword;" & _
"Option=3"
''' error '''
oConn.Open str
End Sub
Private Sub InsertData()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
ConnectDB
sql = "SELECT * FROM ComputingNotesTable"
rs.Open sql, oConn, adOpenDynamic, adLockOptimistic
Do Until rs.EOF
Range("A1").Select
ActiveCell = rs.Fields("Headings")
rs.MoveNext
Loop …Run Code Online (Sandbox Code Playgroud) 除了SED,如何更换等号?如何在字符串替换中使用字符串变量?
考虑这个例子:
For /F "tokens=*" %%B IN (test.txt) DO (
SETLOCAL ENABLEDELAYEDEXPANSION
SET t=is
SET old=%%B
SET new=!old:t=!
ECHO !new!
ENDLOCAL
)
:: SET new=!old:==!
Run Code Online (Sandbox Code Playgroud)
两个问题:
首先,我不能在!:=!中使用变量%t%.
SET t=is
SET old=%%B
SET new=!old:t=!
Run Code Online (Sandbox Code Playgroud)
其次,我无法替换命令行中的等号
SET new=!old:==!
Run Code Online (Sandbox Code Playgroud) Firefox 13.0.1和IE7 +可以正常使用服务器上的JSON文件.但是,当我在浏览器中打开JSON(存储在线)文件时,FF14会返回控制台生成的此错误消息:
未声明纯文本文档的字符编码.如果文档包含US-ASCII范围之外的字符,则文档将在某些浏览器配置中使用乱码文本进行渲染.需要在传输协议中声明文件的字符编码,或者文件需要使用字节顺序标记作为编码签名.
当你访问这个网站(我的测试网站), http://lifelearning.x10.mx/test/php_slides.html (你可以在那里查看代码)并在div中滚动你的鼠标(被黑色边框包围) ),文本不会出现(除了FF14之外,在上面列出的任何浏览器中都会出现).
我想问一下如何根据FF14 Web控制台的要求声明纯文本的字符编码.