VB로 생성한 값을 DB에 넣을때 DB에 값과 비교하여 중복되는 값이 있으면 중복된 값만큼 다시 생성해 정확한 갯수의 값을 디비에 넣고 싶습니다...
VB에서요 다음과 같이 COMBO3에 100개의 랜덤값을 생성하거든요..그리고 DB에 INSERT 시킵니다.
다음과 같이 랜덤값 생성시 만약 중복되는 값이 있으면 중복된 값의 갯수만큼 루프를 돌아 정확하게 100개가 생성됩니다.
이값을 DB에 INSERT 시킬경우 일단 SELECT로 현재 저장되어 있는 랜덤값을 가져와 비교해
중복된값이 있다면 중복된 값만큼 추가로 랜덤값이 생성되어 100개의 랜덤값을 정확하게 입력하고 싶습니다.
VB소스에서는 랜덤값을 구할때 중복되는 수만큼 루프를 돌아 정확하게 100개를 만드는데 이걸 DB에 입력할경우에
현재까지 저장되어 있는 DB와 비교를 하여서 정확하게 100개를 입력해야 하는데 어떻게 하면 될찌... 소스보시고 변경좀 부탁드릴게요 ^^;;
cardkey <-- 랜덤값이구요 PK로 설정 되어 있습니다.
또한 무조건 100개의 값이 들어가야 하거든요.
For k = 1 To Combo3.Text
Do
str = Chr(Int(Rnd() * 25 + 65)) & Format(Int(Rnd() * 10000000), "0000000")
Loop While InStr(strtmp, str)
List1.AddItem str
strtmp = strtmp & str & "|"
Next k
Set rs = New ADODB.Recordset
For i = 0 To List1.ListCount - 1
isql = "Insert INTO PNGLICENSE (cardindex, cardkey, keyused, timeleft, sumofmoney, publishdate) values
(cardindex.NextVal,'" + List1.List(i) + "','0','" + Combo2.Text + " ','" + Combo1.Text + "', sysdate)"
AdoCnn.Execute isql
Next i
|