vbs 연결 sqlserver 데이터베이스 모호 조회 추출 데이터,msgbox 로 모두 표시
1082 단어 VBScript
Dim DB
Dim isSQL
Dim i
dim tag
dim Describe
dim Addr1
dim Addr2
dim Addr3
dim Addr4
dim str
dim str1
str=""
Set DB = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.RECORDSET")
i = 0
'tag="P1103B"
tag=inputbox (" Tag")
DB.Open "Driver=SQL Server;server= ;Database= ;uid=sa;pwd=sa ;"
isSQL = "select * from IoTable where Tag like '%"&tag&"%'"
Set objRecordSet = DB.Execute(isSQL)
Do While Not objRecordSet.EOF
Addr1 =objRecordSet(" ")+" "
Addr2 =Addr1+objRecordSet(" ")+" "
Addr3 =Addr2+objRecordSet(" ")+" "
if objRecordSet(" ") & "" = "" then
str1="null"
Addr4 =Addr3+str1+ vbcrlf
str = Addr4+str
else
Addr4 =Addr3+objRecordSet(" ")+" "+ vbcrlf
str = Addr4+str
end if
i = i +1
objRecordSet.MoveNext
Loop
if i<=0 then
msgbox " "
else
msgbox str
end if
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
【VBScript】 ServerXMLHTTP로 WebAPI에 액세스이 항목은 3일째 항목입니다. 2일째는 씨에 의한 엔트리였습니다. 평소는 매우 신세를지고 있습니다. 아라타나 개발부의 입니다. 아라타나 Advent Calendar 2017도 3일째군요. 이번에는 ASP(VBScri...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.