Private Sub PAPHOTO_SAVE() Try If TxtPictureURL.Text.ToString <> "" Then Dim SQL_String As String = "" '定义SQL字符串 If PA001H_INSERT.Isexists(" LJPA005H"
Private Sub PAPHOTO_SEL() Try Dim objCon As SqlConnection Dim objCmd As SqlCommand '打开数据库 objCon = New SqlConnection(PA001H_INSERT.strConn) objCon.Open() '定义SQL字符串