VB를 사용하여 데이터베이스 문자열을 반복하고 드롭다운 목록 상자에 추가하는 방법

VB를 통해 데이터베이스의 문자열을 쿼리하고 드롭다운 목록 상자에 추가하는 방법

사용 여부

Data1.Recordset.FindFirst 메서드

아직 사용 중

Data1.Recordset.FindNext 메서드

기록을 검색하려면

를 사용하세요.

Data1.Recordset.NoMatch

일치하는 기록이 발견되었는지 확인하려면

Data1.Recordset.NoMatch는 True를 반환하므로 찾을 수 없다는 의미입니다. False를 반환하면 찾았다는 의미입니다.

하지만 다음과 같이 직접 사용할 수는 없습니다(직접 사용하지 않는 것이 좋습니다).

Data1.Recordset.FindNext "필드 2 좋아요" & "'*" & Text8.Text & "*'"

Combo1.AddItem Data1.Recordset.Fields(1)

대신 이렇게 하세요:

Data1.Recordset.FindNext "필드 2 좋아요" & "'*" & Text8.Text & "*'"

Data1.Recordset.NoMatch가 있는 경우

'검색을 종료하려면 여기에 해당 코드를 입력하세요

그밖에

Combo1.AddItem Data1.Recordset.Fields(1)

…………

끝나면

위에서 말한 것은 당신처럼 직접 사용하지 않는 것이 가장 좋다는 것입니다. 즉, 찾고 있는 레코드가 반드시 존재한다는 의미입니다.

간단한 VB 문자열 처리

'TextBox(이름이 Text1이고 MultiLine 속성이 True로 설정되어 입력에 사용됨), CommandButton(이름이 Command1이며 분석을 시작하는 데 사용됨) 및 ListBox(이름이 List1이며 배열 분석이 올바른지 증명하는 데 사용됨)를 추가합니다.

'다음 코드를 추가하세요.

옵션 명시

비공개 하위 명령1_Click()

Dim Num() 만큼 길고, i 만큼 길고, j 만큼 길다

List1.Clear

If StrToNum(Text1.Text, Num) Then

ReDim t(0을 UBound(Num, 2)) 문자열로

For i = 0 To UBound(Num, 1)

j = 0에서 UBound(Num, 2)로

t(j) = CStr(Num(i, j))

다음

List1.AddItem Join(t)

다음

그밖에

MsgBox "잘못 입력되었습니다!"

끝나면

끝 서브

개인 함수 StrToNum(S는 문자열로, N()은 길게) 부울로

Dim A() As String, B() As String, C As Long, D As String, E As Boolean, F As Long

나는 길게, j는 길게

Len(S) = 0이면 함수 종료

A = 분할(S, vbCrLf)

For i = 0 To UBound(A)

B 지우기

C = 0

E = 거짓

For j = 1 To Len(A(i))

D = 중간(A(i), j, 1)

케이스 Asc(D) 선택

사례 48에서 57까지

E가 아니라면

ReDim 보존 B(0에서 C)

C = C + 1

E = 사실

끝나면

B(C - 1) = B(C - 1) & D

사례 32

E = 거짓

다른 경우

종료 기능

선택 종료

다음

C = 0이면 함수 종료

i = 0이면

ReDim N(0에서 UBound(A), 0에서 C - 1)

F = C

그밖에

F C이면 함수 종료

끝나면

j = 0의 경우 C - 1

N(i, j) = 발(B(j))

다음

다음

StrToNum = 참

기능 종료

위 내용은 VB를 사용하여 데이터베이스 문자열을 반복하고 드롭다운 목록 상자에 추가하는 방법의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!