VBNET操作数据库

2024年3月26日发(作者：)

Imports

Imports

Imports

Public Class SQL

Dim memorypath As String = ""

Private Sub SQL_Load(ByVal sender As , ByVal e As

rgs) Handles

setkongjianfalse()

FillListbox()

End Sub

Private Sub FillListbox()

Dim cn As New SqlConnection(mycon)

Dim cmd As New SqlCommand

tion = cn

dText = "select 身份证号码 from 虚拟工作室"

()

()

Dim myreader As SqlDataReader = eReader()

While

(myreader(0))

End While

()

()

edIndex = 0

End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As ,

ByVal e As rgs) Handles