tina.programer
عضو جدید
چه بخش فعالیی![Frown :( :(](/styles/default/xenforo/smilies/vb5/frown.gif)
![Frown :( :(](/styles/default/xenforo/smilies/vb5/frown.gif)
سلاماخه تو vb6 چطوری n عدد رو بگیره؟
Private Sub cmdBrowse_Click()
On Error GoTo ErrHandler
Dim vFiles As Variant
Dim lFile As Long
With CommonDialog1
.FileName = "" 'Clear the filename
.CancelError = True
.DialogTitle = "Select File(s)..."
.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNHideReadOnly 'Flags, allows Multi select, Explorer style and hide the Read only tag
.Filter = "All files (*.*)|*.*"
.ShowOpen
vFiles = Split(.FileName, Chr(0)) 'Splits the filename up in segments
If UBound(vFiles) = 0 Then ' If there is only 1 file then do this
List1.AddItem .FileName
List2.AddItem .FileTitle
Else
For lFile = 1 To UBound(vFiles) ' More than 1 file then do this until there are no more files
List1.AddItem vFiles(0) + "\" & vFiles(lFile)
List2.AddItem vFiles(lFile)
Next
End If
End With
Exit Sub
ErrHandler:
If Err <> cdlCancel Then
MsgBox Err.Description
End If
End Sub
// this Find man / CONVERT to Vb / Thnx
private void button1_Click(object sender, EventArgs e)
{
string strq = String.Format("select * from KalaKharid where name='{0}'", textBox1.Text.Trim());
DataSet DS1 = new DataSet();
DS1.Clear();
OleDbConnection con = new OleDbConnection();
OleDbDataAdapter da = new OleDbDataAdapter();
con.ConnectionString = dbAdrress;
da.SelectCommand = new OleDbCommand();
da.SelectCommand.Connection = con;
da.SelectCommand.CommandText = strq;
da.SelectCommand.CommandType = CommandType.Text;
da.Fill(DS1, "Tbl1");
con.Close();
Crykharid1.SetDataSource(DS1.Tables["Tbl1"]);
crystalReportViewer1.ReportSource = Crykharid1;
}
با سلام
ن تو شرکتی کار می کنم که یک نرم افزار داره با VB نوشته شده وقتی می خوام روی کلاینت ها نصبش کنم هنگام اجرا به من Error میده : Error 13 run time ty چطوری رفعش کنم
مرسی اگه کمکم کنید
Thread starter | عنوان | تالار | پاسخ ها | تاریخ |
---|---|---|---|---|
![]() |
درخواست نمونه سوال تستی همراه با پاسخ vb.net | VB.NET | 1 | |
م | نوشتن برنامه ساعت دیجیتال با ویژوال بیسیک | VB.NET | 0 | |
A | درخواست کتاب برنامه نویسی VB مقدماتی | VB.NET | 1 | |
M | برنامه نویسی پورت usb با ویژوال بیسیک | VB.NET | 1 | |
![]() |
آموزش برنامه نویسی VB.net (بررسی سئوالات و مشکلات) | VB.NET | 5 |